Nhập dữ liệu json vào Excel

Tôi có một tệp văn bản ở định dạng json và muốn đọc nó vào Excel. Một ví dụ rất đơn giản của tệp json có cấu trúc sau:

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

Tôi muốn chuyển đổi nó thành Excel, trong đó mỗi bản ghi trở thành một hàng trong excel với các tham số được chọn làm tiêu đề cột.

Bạn có thể làm điều này trong VBA với vba-json thư viện . Đây là một ví dụ về một số mã tôi đã sao chép :

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 

Dưới đây là một số ví dụ tải xuống excel với khả năng chuyển đổi json excel. Bạn có thể làm điều đó trực tiếp từ bên trong excel.

http://ramblings.mcpher.com/Home/excelquirks/json

1. Dán JSON vào json-csv.com .

2. Tải xuống tệp CSV kết quả.

3. Mở tệp CSV lên trong Excel.