如何使用VBA代码实现JSON文件读取并将内容导入Excel

以下实现基于接口返回的响应数据已存储在sResponse变量的前提，需要先引入VBA-JSON解析工具（JsonConverter）完成JSON解析操作。

参考实现代码 #

Dim item As Variant
Dim jsonObject As Object
Dim ws As Worksheet
Set ws = Worksheets("Result")
Dim i As Long
i = 3
' 解析JSON响应内容
Set jsonObject = JsonConverter.ParseJson(sResponse)
' 遍历目标数组写入Excel
For Each item In jsonObject("data")("judgementSummary")
    ws.Cells(i, 3) = item("result")
    ws.Cells(i, 4) = item("wording")
    i = i + 1
Next

对应JSON响应示例 #

你提供的示例JSON存在语法缺项，符合取值逻辑的标准JSON结构参考如下：

{
  "data": {
    "judgementSummary": [
      {
        "code": "253",
        "result": "3",
        "wording": "general"
      }
    ]
  },
  "judgements": [
    {
      "id": "142555",
      "date": "636363",
      "policynumber": "5364fhfh",
      "judgementSummary": [
        {
          "code": "253",
          "result": "3",
          "wording": "general"
        }
      ]
    }
  ]
}

适配说明 #

• 如果你的实际JSON根节点下没有data字段，judgementSummary在judgements数组的子对象内，需要调整遍历路径为：

For Each judge In jsonObject("judgements")
    For Each item In judge("judgementSummary")
        ws.Cells(i, 3) = item("result")
        ws.Cells(i, 4) = item("wording")
        i = i + 1
    Next
Next

• 写入起始行、列号可根据你的实际表格需求调整。

内容的提问来源于stack exchange，提问作者Sasi Rekha