Question

我已将VBA JSON库导入到我的VBA项目中，但我无法正确创建JSON对象。我陷入了第一道障碍。

即使他们提供的示例代码也无效：

Sub test()


Dim Json As Object
Set Json = JsonConverter.ParseJson("{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}")

' Json("a") -> 123
' Json("b")(2) -> 2
' Json("c")("d") -> 456
MsgBox Json("c")("e") = 789

End Sub

这给出了以下答案：

一

2

456

空

我选择了Microsoft Scripting Runtime库并添加了VBA Dictionary类。

Answer 1

我得到了预期的结果。

Sub TestJson()

    Dim Json As Object
    Set Json = JsonConverter.ParseJson("{""a"":123,""b"":[1,2,3,4],""c"":{""d"":456}}")

    Debug.Print Json("a")        '--> 123
    Debug.Print Json("b")(2)     '--> 2
    Debug.Print Json("c")("d")   '--> 456
    Json("c")("e") = 789         'create new key and value under "c"
    Debug.Print Json("c")("e")   '--> 789

End Sub

在处理Dictionary对象时要非常小心使用Watch窗口：只需在字典键上有一个活动监视就可以使该键被添加。

已导入VBA JSON但未正确解析

1 个答案: