0

我正在尝试使用来自 GitHub 的 JsonConverter.bas 文件从 VBA 中的 JSON 响应中选择两个值。我不确定我是否正确调用了这些字段。当我运行以下代码时，我收到“运行时错误'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
4

1 回答 1

1

无需遍历 JSON 元素。您可以通过以下方式直接访问这些值：

Sheets(1).Cells(1, 1).Value = JSON("result")("max_price")
Sheets(1).Cells(1, 2).Value = JSON("result")("min_price")
于 2019-12-11T17:24:35.573 回答