Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как блокировать новые подключения? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как блокировать новые подключения?
Vertep7 Дата: Вторник, 03.10.2023, 12:20 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте. Подскажите как исключить дублирование подключений в файле. Вроде бы, как мне казалось, решил этот вопрос, но они опять начали появляться.

[vba]
Код
Sub Basic_Web_Query()
Worksheets("Sheet1").Range("A1:J10000").ClearContents ' очистка листа
Application.DecimalSeparator = "."
Application.ThousandsSeparator = ","
Application.UseSystemSeparators = False
With Sheet1.QueryTables.Add(Connection:= _
"URL;https://iss.moex.com/iss/engines/stock/markets/bonds/boards/TQCB/securities?iss.only=securities&iss.meta=off&securities.columns=YIELDATPREVWAPRICE,ISSUESIZE,MATDATE", Destination:=Range("$A$1"))
.WebFormatting = xlWebFormattingNone
.WebTables = "1" ' таблицы на странице
.Refresh BackgroundQuery:=False
.Delete ' отключение дублирования подключений
End With
Application.UseSystemSeparators = True
End Sub
[/vba]
К сообщению приложен файл: fajlik.xlsm (154.8 Kb)


Сообщение отредактировал Vertep7 - Вторник, 03.10.2023, 12:21
 
Ответить
СообщениеЗдравствуйте. Подскажите как исключить дублирование подключений в файле. Вроде бы, как мне казалось, решил этот вопрос, но они опять начали появляться.

[vba]
Код
Sub Basic_Web_Query()
Worksheets("Sheet1").Range("A1:J10000").ClearContents ' очистка листа
Application.DecimalSeparator = "."
Application.ThousandsSeparator = ","
Application.UseSystemSeparators = False
With Sheet1.QueryTables.Add(Connection:= _
"URL;https://iss.moex.com/iss/engines/stock/markets/bonds/boards/TQCB/securities?iss.only=securities&iss.meta=off&securities.columns=YIELDATPREVWAPRICE,ISSUESIZE,MATDATE", Destination:=Range("$A$1"))
.WebFormatting = xlWebFormattingNone
.WebTables = "1" ' таблицы на странице
.Refresh BackgroundQuery:=False
.Delete ' отключение дублирования подключений
End With
Application.UseSystemSeparators = True
End Sub
[/vba]

Автор - Vertep7
Дата добавления - 03.10.2023 в 12:20
bmv98rus Дата: Вторник, 03.10.2023, 16:20 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4120
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Воспроизвести не удается. Вы создаете и тут же удаляете, что должно отрабатывать корректно.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеВоспроизвести не удается. Вы создаете и тут же удаляете, что должно отрабатывать корректно.

Автор - bmv98rus
Дата добавления - 03.10.2023 в 16:20
Vertep7 Дата: Понедельник, 09.10.2023, 22:04 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Воспроизвести не удается. Вы создаете и тут же удаляете, что должно отрабатывать корректно.

Не совсем понял ответ. Вы имеете в виду что в коде все верно и дублирований быть не должно. У себя такого не обнаружили при работе с файлом?
У меня на двух разных ПК при работе макроса появляются эти дубликаты подключений.
Картинка


Сообщение отредактировал Vertep7 - Понедельник, 09.10.2023, 22:18
 
Ответить
Сообщение
Воспроизвести не удается. Вы создаете и тут же удаляете, что должно отрабатывать корректно.

Не совсем понял ответ. Вы имеете в виду что в коде все верно и дублирований быть не должно. У себя такого не обнаружили при работе с файлом?
У меня на двух разных ПК при работе макроса появляются эти дубликаты подключений.
Картинка

Автор - Vertep7
Дата добавления - 09.10.2023 в 22:04
Vertep7 Дата: Воскресенье, 24.12.2023, 14:27 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
На просторах интернета нашел отличное решение моей проблемы, может кому-то пригодится)

[vba]
Код
n = ActiveWorkbook.Connections.Count  ' блок отключения дублирования подключений
For i = n To 1 Step -1
ActiveWorkbook.Connections(i).Delete
Next i
[/vba]


Сообщение отредактировал Vertep7 - Воскресенье, 24.12.2023, 15:04
 
Ответить
СообщениеНа просторах интернета нашел отличное решение моей проблемы, может кому-то пригодится)

[vba]
Код
n = ActiveWorkbook.Connections.Count  ' блок отключения дублирования подключений
For i = n To 1 Step -1
ActiveWorkbook.Connections(i).Delete
Next i
[/vba]

Автор - Vertep7
Дата добавления - 24.12.2023 в 14:27
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!