excel提取json内容

您可以使用 Excel VBA 编程来从 JSON 数据中提取内容。以下是一个简单的 VBA 代码示例，该代码使用 Microsoft Scripting Runtime 库中的 JSON 解析器来读取 JSON 数据并将其转换为 Excel 表格格式：

Sub ExtractJsonData()
    Dim json As Object
    Dim text As String
    Dim i As Long
    Dim j As Long
    
    ' 读取 JSON 数据
    text = Sheets("Sheet1").Range("A1").Value
    
    ' 创建 JSON 解析器
    Set json = CreateObject("Scripting.Dictionary")
    json("data") = JsonConverter.ParseJson(text)
    
    ' 解析数据并输出到新的工作表
    Sheets.Add
    Range("A1").Value = "Name"
    Range("B1").Value = "Age"
    i = 2
    For Each item In json("data")
        Range("A" & i).Value = item("name")
        Range("B" & i).Value = item("age")
        i = i + 1
    Next item
End Sub

在此示例中，我们假设 JSON 数据在 Sheet1 的单元格 A1 中。代码将数据读取到一个字符串变量中，然后使用 Scripting.Dictionary 对象创建一个名为“data”的字典项。我们将 JSON 数据解析为一个数组，并将其存储在“data”字典项中。

接下来，我们使用 For Each 循环遍历数组，将每个条目的“name”和“age”属性输出到新的工作表中。

请注意，此示例仅适用于特定的 JSON 数据结构。如果您的 JSON 数据结构不同，则需要根据需要更改 VBA 代码。