Імпортуйте дані json в Excel


8

У мене є текстовий файл у форматі json і хочу прочитати його в Excel. Дуже спрощений приклад файлу json має таку структуру:

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

Я хочу перетворити його в Excel, в якому кожен запис стає рядком в excel з обраними параметрами в якості заголовків стовпців.


2
Пробачте моє незнання; яке із наведених вище значень є "записами", а які - "обраними параметрами"?
jrc03c

Запис буде {'a': 10, 'b': 20}, а параметри - 'a' і 'b'.
Рікардо Марімон

2
Це може отримати кращу відповідь на stackoverflow.com
Daisetsu

Відповіді:


5

Це можна зробити в 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 

Більше не чудова відповідь, без коду Google, щоб завантажити це
Пітер Тернер


Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.