Importer des données json dans Excel

8

J'ai un fichier texte au format json et je souhaite le lire dans Excel. Un exemple très simplifié du fichier json a la structure suivante:

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

Je veux le convertir en Excel dans lequel chaque enregistrement devient une ligne dans Excel avec les paramètres sélectionnés comme en-têtes de colonne.

microsoft-excel vba parsing json Ricardo Marimon
la source
2
Pardonnez mon ignorance; parmi les valeurs ci-dessus, lesquelles sont les "enregistrements" et quels sont les "paramètres sélectionnés"?
jrc03c
Un enregistrement serait {'a': 10, 'b': 20} et les paramètres seraient 'a' et 'b'.
Ricardo Marimon
2
Cela peut obtenir une meilleure réponse sur stackoverflow.com
Daisetsu

Réponses:

5

Vous pouvez le faire dans VBA avec la vba-json bibliothèque . Voici un exemple de code que j'ai copié :

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
la source
Ce n'est plus une bonne réponse sans que le code Google soit là pour le télécharger
Peter Turner
1

  1. Collez le JSON dans json-csv.com .

  2. Téléchargez le fichier CSV résultant.

  3. Ouvrez le fichier CSV dans Excel.

Stack Man
la source