Всем привет!
Использую "MSXML2.XMLHTTP.6.0" для получения прайса. Все работает прекрасно, за исключением одного, пока не закрою/открою Excel данные в получаемом ответе не обновляются. Вероятно, могу ошибаться, Excel держит это соединение открытым. Пробую метод abort, не помогает. Пробовал Set http = Nothing. Может есть мысли, как можно не закрывая Книгу, получать актуальные данные? Актуальность данных отслеживаю по дате в получаемом ответе.
Часть кода:
Использую "MSXML2.XMLHTTP.6.0" для получения прайса. Все работает прекрасно, за исключением одного, пока не закрою/открою Excel данные в получаемом ответе не обновляются. Вероятно, могу ошибаться, Excel держит это соединение открытым. Пробую метод abort, не помогает. Пробовал Set http = Nothing. Может есть мысли, как можно не закрывая Книгу, получать актуальные данные? Актуальность данных отслеживаю по дате в получаемом ответе.
Часть кода:
| Код |
|---|
Set http = CreateObject("MSXML2.XMLHTTP.6.0")
http.Open "GET", BaseAllUri & ClientDataStr, False
http.Send
Set JSON = ParseJson(http.responseText)
'...........
http.abort
MsgBox ("complete")
ThisWorkbook.Sheets("Stock+Price").Select
Exit Sub
|
