64位 vba 解析json

在Excel宏中，我们经常需要用到JSON解析。而在64位的VBA中，与32位的VBA不同，64位的VBA不支持原生的JSON解析库。本文将介绍如何在64位的VBA中解析JSON。

为了完成这个任务，我们需要使用Microsoft Script Control。这个COM组件是用于将JScript和VBScript引擎嵌入到其他应用程序中的库。我们可以通过它来解析JSON。

以下是一个简单的示例代码：

Sub JSON_Parse_test()
    Dim jsonData As String
    jsonData = "{""Name"":""John Smith"",""Age"":30,""Cars"":[""Ford"",""BMW"",""Fiat""]}"

    Dim sc As Object
    Set sc = CreateObject("MSScriptControl.ScriptControl")
    sc.Language = "JScript"

    Dim jsonObj As Object
    Set jsonObj = sc.Eval("(" + jsonData + ")")

    Debug.Print jsonObj("Name")
    Debug.Print jsonObj("Age")
    Debug.Print jsonObj("Cars")(0)
End Sub

在这个示例中，我们首先定义了一个JSON字串，然后通过CreateObject创建了一个Microsoft Script Control对象。我们设置它的语言为JScript，因为它支持JSON格式。

接下来，我们使用Eval函数来解析JSON。我们将JSON字符串括号括起来，以使其成为一个对象。解析后，我们可以通过对象名称来访问其属性和数组元素。

需要注意的是，在64位的VBA中，Script Control必须注册为本地库。这可能需要管理员权限才能完成。如果您无法注册，可以尝试下载和使用64位的chilkat库，这个库中有自己的JSON解析器，可以使用相同的代码来解析JSON。