Excel QueryTable замедляется со временем, пока не замерзнет - PullRequest
Новая
       9

Excel QueryTable замедляется со временем, пока не замерзнет

0 голосов
/ 30 апреля 2018

У меня есть код, который запускает таблицу запросов, импортирует данные на лист, а затем запускает другой код для данных.

У меня есть таймер для запуска каждые 90 секунд. Все работает как надо, за исключением того, что со временем все медленнее и медленнее. В конце концов (после 12 часов или около того), он просто полностью зависает. Я попытался очистить соединения в конце моего кода, но это не решило проблему.

Есть идеи? 

 With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.address.com" _
    , Destination:=sh3.Range("$A$1"))
    .Name = "Query"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With
...