Здравствуйте. Подскажите как исключить дублирование подключений в файле. Вроде бы, как мне казалось, решил этот вопрос, но они опять начали появляться.
[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]