使用 VBA 解析 JSON

Question

我需要一些帮助来解析这个 JSON 结果。

这个想法是从rates 获取日期值和数字。

例如：

2018-01-03 : 9.825

2018-01-05 : 9.8318

我在我的代码中使用 JsonConverter。

{"rates":
{
    "2018-01-03":{"SEK":9.825},
    "2018-01-05":{"SEK":9.8318},
    "2018-01-02":{"SEK":9.8283},
    "2018-01-04":{"SEK":9.822}
},
"start_at":"2018-01-01",
"base":"EUR",
"end_at":"2018-01-05"}

感谢您的反馈。

Answer 1

试试这个：

    Dim parsedJSON As Dictionary
    Set parsedJSON = JsonConverter.ParseJson(yourJsonString)

    Dim rateKey As Variant
    For Each rateKey In parsedJSON("rates")
        Dim rate As Dictionary
        Set rate = parsedJSON("rates")(rateKey)
        Debug.Print rateKey, rate.Items(0)
    Next rateKey