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.

microsoft-excel vba parsing json Ricardo Marimon
sumber
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
Lance Roberts
sumber
Bukan jawaban yang bagus lagi tanpa ada kode google untuk mengunduh ini
Peter Turner
1

  1. Rekatkan JSON ke json-csv.com .

  2. Unduh file CSV yang dihasilkan.

  3. Buka file CSV di Excel.

Stack Man
sumber