JSON VBA 解析到 Excel

使用VBA语言将JSON数据解析到Excel是一种常见的操作。VBA是一种用于编写Microsoft Office应用程序的宏语言，它可以帮助我们自动化处理Excel中的数据。在本文中，我们将介绍如何使用VBA解析JSON数据，并将其导入到Excel表格中。

vba
Function ParseJSON(jsonStr As String) As Variant
    Dim json As Object
    Set json = JsonConverter.ParseJson(jsonStr)
    Dim table As Object
    Set table = CreateObject("Scripting.Dictionary")
    
    ' 遍历JSON对象的键值对
    For Each key In json.keys
        Dim value As Variant
        value = json(key)
        
        ' 将每个键值对添加到表格对象中
        table.Add key, value
    Next key
    
    ' 将表格对象作为函数的返回值
    ParseJSON = table
End Function

vba
Sub ParseJSONExample()
    Dim jsonStr As String
    jsonStr = "{""name"": ""John Smith"", ""age"": 30, ""city"": ""New York""}"
    
    Dim data As Variant
    data = ParseJSON(jsonStr)
    
    ' 输出解析后的数据
    For Each key In data.keys
        Debug.Print key & ": " & data(key)
    Next key
End Sub