пишу программу VBA на получение данных от Wildberries, в которой цикл меняет токены запросов
For roww = 1 To 6
Set http = CreateObject("MSXML2.XMLHTTP")
On Error GoTo ErrorHandler
http.Open "GET", url, False
http.setRequestHeader "Content-type", "application/json"
http.setRequestHeader "Accept", "application/json"
token = .Worksheets("Токен").Range("A" & roww).Value
texx = ""
http.setRequestHeader "Authorization", "Bearer " + Token
http.send
Application.Wait (Now + TimeValue("00:00:03"))
If http.Status = 200 Then texx = http.responseText
Next
получаю в переменную texx ответы Wb. По каждому из шести токенов свой ответ.
На моём ПК (win 10 pro и office профессиональный плюс 16) всё работает нормально, а на другом ПК(win 10 домашний и office профессиональный плюс 16) проблема: все ответы приходят одинаковые и соответствуют токену, который в цикле первый. Закрываю-открываю excel файл. Меняю порядок токенов в цикле - ответы меняются, но все равно все соответсnвует первому - уже другому - токену в цикле.
Кто-то возможно сталкивался с таким казусом. Подскажите - в чём проблема.
Средний
