Как я могу использовать ParseJson в VBA, чтобы получить выбранные элементы в ответ? - PullRequest
Новая
       42

Как я могу использовать ParseJson в VBA, чтобы получить выбранные элементы в ответ?

0 голосов
/ 11 декабря 2019

Я пытаюсь выбрать два значения из ответа JSON в VBA, используя файл JsonConverter.bas из GitHub. Я не уверен, что я правильно называю поля. Когда я запускаю следующий код, я получаю сообщение об ошибке «Ошибка времени выполнения 13: несоответствие типов». Как я смогу выбрать значение max_price и значения min_price из следующего: 

Public Sub exceljson()

Dim http As Object, JSON As Object, i As Integer

Set http = CreateObject("MSXML2.XMLHTTP")

http.Open "GET", "https://testapp.deribit.com/api/v2/public/ticker?instrument_name=BTC-27DEC19-8000-C", False

http.Send

Set JSON = ParseJson(http.ResponseText)

i = 2
For Each Item In JSON
Sheets(1).Cells(i, 1).Value = Item("result")("max_price")
Sheets(1).Cells(i, 2).Value = Item("result")("min_price")
i = i + 1

Next

MsgBox ("complete")

End Sub

1 Ответ

1 голос
/ 11 декабря 2019

Нет необходимости проходить через элемент JSON. Вы можете напрямую получить доступ к этим значениям с помощью: 

Sheets(1).Cells(1, 1).Value = JSON("result")("max_price")
Sheets(1).Cells(1, 2).Value = JSON("result")("min_price")
...