JSON 데이터를 Excel로 가져 오기

json 형식의 텍스트 파일이 있으며 Excel로 읽고 싶습니다. json 파일의 매우 간단한 예는 다음과 같은 구조를 갖습니다.

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

선택한 매개 변수를 열 헤더로 사용하여 각 레코드가 Excel의 행이되는 Excel로 변환하고 싶습니다.

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 

다음은 json Excel Connversion 기능이있는 Excel 다운로드의 예입니다. Excel 내에서 바로 할 수 있습니다.

http://ramblings.mcpher.com/Home/excelquirks/json

1. JSON을 json-csv.com에 붙여 넣 습니다 .

2. 결과 CSV 파일을 다운로드하십시오.

3. Excel에서 CSV 파일을 엽니 다.