Первый раз на этом ресурсе. Не разработчик, но заинтересовался VBA. Прошу помощи. Хочу спарсить JSON из URL, но получаю ошибку Run-time Error 13" Type Mismatch c указанием Sheets(1).Cells(i, 1).Value = Item("barcode") Понимаю что не тот тип переменной или иного, но разобраться сам уже не могу. Ниже json и сам VBA. Спасибо
{
"barcode": "",
"devCode": "1",
"height": 0,
"itemType": 0,
"length": 0,
"weight": 0,
"width": 0
}
Public Sub exceljson()
Dim http As Object, JSON As Object, i As Integer
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://******", False
http.Send
Set JSON = ParseJson(http.responseText)
i = 2
For Each Item In JSON
Sheets(1).Cells(i, 1).Value = Item("barcode")
Sheets(1).Cells(i, 2).Value = Item("devCode")
Sheets(1).Cells(i, 3).Value = Item("height")
Sheets(1).Cells(i, 4).Value = Item("itemType")
Sheets(1).Cells(i, 5).Value = Item("lenght")
Sheets(1).Cells(i, 6).Value = Item("weight")
Sheets(1).Cells(i, 7).Value = Item("width")
i = i + 1
Next
MsgBox ("complete")
End Sub
