如何在 VBA 中使用 ParseJson 来获取所选项目作为响应？

Question

我正在尝试 select 来自 VBA 中 JSON 响应的两个值，使用来自 GitHub 的 JsonConverter.bas 文件。我不确定我是否正确调用了这些字段。当我运行以下代码时，我收到 "Run-time error '13': Type mismatch" 错误消息。我如何能够 select 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

Answer 1

不需要遍历 JSON 元素。您可以直接访问这些值：

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

如何在 VBA 中使用 ParseJson 来获取所选项目作为响应？

How do I use ParseJson in VBA to get selected items in response?

excel

vba

json

jsonconverter