Refre sh BackgroundQuery внезапно стал намного медленнее в Excel VBA - PullRequest
0 голосов
/ 18 апреля 2020

Я использую приведенный ниже код для получения данных о запасах с сайта, где я использовал для получения 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...