Макрос Excel (версия 1902) - Querytables для извлечения данных с веб-сайта работает очень медленно - PullRequest
1 голос
/ 24 января 2020

Я написал код, чтобы получить данные из таблицы веб-данных и записать их в таблицу Excel. Использовал этот код более года. В последних (с января 2020 г.) обновлениях (текущая версия 1902, сборка 11328.20492) код работает очень медленно - более 10 минут (раньше это занимало 2-3 секунды) или не отвечает большую часть времени.

Set ws = ActiveWorkbook.Sheets("Data")

Sheets("Data").Range("C1:AA200").Clear
With ws.QueryTables.Add(Connection:="URL;" & url, Destination:=ws.Range("C1"))

  .BackgroundQuery = True
  .TablesOnlyFromHTML = True
  .Refresh BackgroundQuery:=False
  .SaveData = True

End With

Попытка отладки ... Отладчик также завис на .Refresh BackgroundQuery: = False

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...