☰

将 json 数据导入 Excel

tag-icon • tag-icon microsoft-excel vba parsing json
将 json 数据导入 Excel

我有一个 json 格式的文本文件，想将其读入 Excel。json 文件的一个非常简化的示例具有以下结构：

{ [
  { 'a': 10, 'b': 20 },
  { 'a': 20, 'b': 22 },
  { 'a': 11, 'b': 24 }
] }

我想将其转换为 Excel，其中每条记录成为 Excel 中的一行，并以选定的参数作为列标题。

答案1

您可以在 VBA 中使用vba-json 图书馆。下面是我编写的一些代码示例复制：

Sub TestJsonDecode() 'This works, uses vba-json library 
    Dim lib As New JSONLib 'Instantiate JSON class object 
    Dim jsonParsedObj As Object 'Not needed 

    jsonString = "{'key1':'val1','key2':'val2'}" 
    Set jsonParsedObj = lib.parse(CStr(jsonString)) 

    For Each keyName In jsonParsedObj.keys 
        MsgBox "Keyname=" & keyName & "//Value=" & jsonParsedObj(keyName) 
    Next 

    Set jsonParsedObj = Nothing 
    Set lib = Nothing 
End Sub 

Sub TestJsonEncode() 'This works, uses vba-json library 
    Dim lib As New JSONLib 'Instantiate JSON class object 
    Set arr = CreateObject("Scripting.Dictionary") 

    arr("key1") = "val1" 
    arr("key2") = "val2" 

    MsgBox lib.toString(arr) 
End Sub

答案2

  1. 将 JSON 粘贴到json-csv.com。

  2. 下载生成的 CSV 文件。

  3. 在 Excel 中打开 CSV 文件。

答案3

以下是一些具有 json excel 转换功能的 excel 下载示例。您可以直接在 excel 中执行此操作。

（页面不再可用：）http://ramblings.mcpher.com/Home/excelquirks/json

您可以使用 Wayback Machine 上存档的最新版本 https://web.archive.org/web/20200217050634/http://ramblings.mcpher.com/Home/excelquirks/json

相关内容