एक्सेल में json डेटा आयात करें

8

मेरे पास json प्रारूप में एक पाठ फ़ाइल है और इसे Excel में पढ़ना चाहते हैं। Json फ़ाइल का एक बहुत ही सरल उदाहरण निम्न संरचना है:

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

मैं इसे एक्सेल में बदलना चाहता हूं जिसमें प्रत्येक रिकॉर्ड कॉलम हेडर के रूप में चयनित मापदंडों के साथ एक्सेल में एक पंक्ति बन जाता है।

microsoft-excel  vba  parsing  json 
— रिकार्डो मारिमोन
स्रोत
2
मेरी अज्ञानता को क्षमा करो; उपरोक्त में से कौन सा मान "रिकॉर्ड" है और कौन से "चयनित पैरामीटर" हैं?
— jrc03c
एक रिकॉर्ड {'ए': 10, 'बी': 20} होगा और पैरामीटर 'ए' और 'बी' होगा।
— रिकार्डो मैरिमोन
2
इस पर stackoverflow.com पर बेहतर प्रतिक्रिया मिल सकती है
— Daisetsu

जवाबों:

5

आप vba-json पुस्तकालय के साथ VBA में ऐसा कर सकते हैं । यहाँ कुछ कोड का उदाहरण दिया गया है जिन्हें मैंने कॉपी किया है :

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
— लांस रॉबर्ट्स
स्रोत
यह डाउनलोड करने के लिए चारों ओर गूगल कोड के बिना कोई महान जवाब नहीं
— पीटर टर्नर
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.