Importar dados json para o Excel


8

Eu tenho um arquivo de texto no formato json e quero lê-lo no Excel. Um exemplo muito simplificado do arquivo json tem a seguinte estrutura:

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

Quero convertê-lo para o Excel no qual cada registro se torna uma linha no Excel com os parâmetros selecionados como cabeçalhos da coluna.


2
Perdoe minha ignorância; quais dos valores acima são os "registros" e quais são os "parâmetros selecionados"?
Jrc03c

Um registro seria {'a': 10, 'b': 20} e os parâmetros seriam 'a' e 'b'.
Ricardo Marimon

2
Isso pode obter uma resposta melhor em stackoverflow.com
Daisetsu 08/07/10

Respostas:


5

Você pode fazer isso no VBA com a vba-json biblioteca . Aqui está um exemplo de algum código que eu copiei :

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 

Não é uma grande resposta mais sem código de google sendo em torno de baixar este
Peter Turner


Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.