Impor data json ke Excel


8

Saya memiliki file teks dalam format json dan ingin membacanya ke Excel. Contoh yang sangat sederhana dari file json memiliki struktur berikut:

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

Saya ingin mengonversikannya ke Excel di mana setiap catatan menjadi baris dalam excel dengan parameter yang dipilih sebagai header kolom.


2
Maafkan ketidaktahuan saya; mana dari nilai-nilai di atas yang merupakan "catatan" dan yang merupakan "parameter yang dipilih"?
jrc03c

Catatan adalah {'a': 10, 'b': 20} dan parameternya adalah 'a' dan 'b'.
Ricardo Marimon 8-10

2
Ini mungkin mendapatkan respons yang lebih baik di stackoverflow.com
Daisetsu

Jawaban:


5

Anda dapat melakukan ini di VBA dengan vba-json perpustakaan . Berikut ini contoh beberapa kode yang saya salin :

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 

Bukan jawaban yang bagus lagi tanpa ada kode google untuk mengunduh ini
Peter Turner


Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.