Я использую приведенный ниже код для получения данных о запасах с сайта, где я использовал для получения 150 данных о запасах в течение 5-10 минут. Внезапно стало очень медленно. В l oop я удаляю все существующие соединения, каждый раз, когда они проходят через каждую акцию. Любой совет будет очень полезным.
Sub TestCode() Dim qt As QueryTable Dim URL As String Dim intI As Integer 'This is the direct link, but I use variable data in loop URL = "https://www1.nseindia.com/products/dynaContent/equities/equities/histscrip.jsp?symbolCode=233&symbol=TITAN&symbol=TITAN&segmentLink=17&symbolCount=1&series=ALL&dateRange=1month&fromDate=&toDate=&dataType=PRICEVOLUMEDELIVERABLE" Set qt = Sheet1.QueryTables.Add(Connection:="URL;" & URL, Destination:=Sheet1.Cells(1, 1)) With qt .RefreshOnFileOpen = True .FieldNames = True .WebSelectionType = xlSpecifiedTables .WebTables = 1 .Refresh BackgroundQuery:=False End With For Each qt In Sheet1.QueryTables qt.Delete Next qt For intI = ActiveWorkbook.Connections.Count To 1 Step -1 ActiveWorkbook.Connections.Item(intI).Delete Next End Sub