JSONデータをExcelにインポートする


8

json形式のテキストファイルがあり、それをExcelに読み込みたい。jsonファイルの非常に単純化された例は、次の構造を持っています。

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

選択したパラメーターを列ヘッダーとして使用して、各レコードがExcelの行になるExcelに変換したいと思います。


2
私の無知を許してください。上記の値のどれが「レコード」で、どれが「選択されたパラメータ」ですか?
jrc03c 2010

レコードは{'a':10、 'b':20}で、パラメーターは 'a'および 'b'です。
Ricardo Marimon、2010

2
これにより、stackoverflow.comでの応答が向上する可能性があります。–
大雪

回答:


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 

これをダウンロードするためにグーグルコードが周りにない限り、もはや良い答えではありません
ピーター・ターナー


弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.