นำเข้าข้อมูล json ไปยัง Excel


8

ฉันมีไฟล์ข้อความในรูปแบบ json และต้องการอ่านมันลงใน Excel ตัวอย่างที่ง่ายมากของไฟล์ json มีโครงสร้างดังต่อไปนี้:

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

ฉันต้องการแปลงเป็น Excel ซึ่งแต่ละระเบียนกลายเป็นแถวใน excel ด้วยพารามิเตอร์ที่เลือกเป็นส่วนหัวคอลัมน์


2
ให้อภัยความเขลาของฉัน; ค่าใดข้างต้นคือ "บันทึก" และ "พารามิเตอร์ที่เลือก" คืออะไร
jrc03c

บันทึกจะเป็น {'a': 10, 'b': 20} และพารามิเตอร์จะเป็น 'a' และ 'b'
Ricardo Marimon

2
นี่อาจได้รับการตอบสนองที่ดีกว่าใน stackoverflow.com
Daisetsu

คำตอบ:


5

คุณสามารถทำเช่นนี้ใน VBA กับห้องสมุดvba-json นี่คือตัวอย่างของรหัสที่ฉันคัดลอก :

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 

ไม่ใช่คำตอบที่ยอดเยี่ยมอีกต่อไปหากไม่มีรหัส Google อยู่ใกล้ ๆ เพื่อดาวน์โหลดสิ่งนี้
Peter Turner


โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.