JSON VBA 解析到 Excel

标题: 使用VBA将JSON数据解析到Excel中

vba
Sub ImportJSONData()
    Dim json As Object
    Dim jsonData As String
    Dim ws As Worksheet
    
    ' 获取JSON数据
    jsonData = "{""name"": ""John Smith"", ""age"": 30, ""city"": ""New York""}"
    
    ' 解析JSON数据
    Set json = JsonConverter.ParseJson(jsonData)
    
    ' 将数据导入到Excel工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ws.Range("A1").Value = json("name")
    ws.Range("B1").Value = json("age")
    ws.Range("C1").Value = json("city")
    
    MsgBox "JSON数据已成功导入到Excel中。"
End Sub

vba
Sub ProcessJSONData()
    Dim json As Object
    Dim ws As Worksheet
    
    ' 获取已导入的JSON数据
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set json = JsonConverter.ParseJson(ws.Range("A1").Value)
    
    ' 读取JSON属性值
    MsgBox "姓名: " & json("name")
    MsgBox "年龄: " & json("age")
    MsgBox "城市: " & json("city")
    
    ' 修改JSON属性值
    json("age") = 31
    
    ' 删除JSON属性
    json.Remove ("city")
    
    ' 将修改后的数据保存回Excel
    ws.Range("A1").Value = JsonConverter.ConvertToJson(json)
    
    MsgBox "JSON数据已成功处理。"
End Sub