Importieren Sie JSON-Daten in Excel

8

Ich habe eine Textdatei im JSON-Format und möchte sie in Excel einlesen. Ein sehr vereinfachtes Beispiel für die JSON-Datei hat die folgende Struktur:

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

Ich möchte es in Excel konvertieren, in dem jeder Datensatz zu einer Excel-Zeile mit den ausgewählten Parametern als Spaltenüberschriften wird.

microsoft-excel vba parsing json Ricardo Marimon
quelle
2
Verzeihen Sie meine Unwissenheit; Welche der obigen Werte sind die "Datensätze" und welche sind die "ausgewählten Parameter"?
jrc03c
Ein Datensatz wäre {'a': 10, 'b': 20} und die Parameter wären 'a' und 'b'.
Ricardo Marimon
2
Dies kann eine bessere Antwort auf stackoverflow.com
Daisetsu

Antworten:

5

Sie können dies in VBA mit der vba-json Bibliothek tun . Hier ist ein Beispiel für einen Code, den ich kopiert habe :

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
Lance Roberts
quelle
Keine gute Antwort mehr, ohne dass Google Code zum Herunterladen verfügbar ist
Peter Turner