2019년 6월 12일 수요일

Excel 에서 JSON 파싱하기 (VBA사용, excel 365에서 확인 완료)

좋은 방법이 있을까 고민하다가 선구자를 따라가기로 했다.
github에 괜찮은 도구가 있어서 이것을 소개한다.

해당 git에서 "JsonConverter.bas" 파일을 VBA 프로젝트로 가져오기 (Import) 하면 끝
JsonConverter 라는 module 이 추가된다.
(vb6.0 에서 microsoft scripting runtime 참조 체크 해두어야 했던것 같음)

Windows Only, Mac용에서 사용하려면 추가 라이브러리의 설치가 필요한데 이건 안해봤음.(현재 Mac이 없음)

사용 방법 샘플 코드

Private Sub VBA_JSON_TEST()
Dim JSON_ As String
Dim Parse As Object

'json 소스
    JSON_ = "{  ""data"": {    ""translations"": [      {        ""translatedText"": ""welcome."",        ""detectedSourceLanguage"": ""ko""      }    ]  }}"
    Set Parse = JSONConverter.ParseJson(JSON_)

    '접근 방법
    Debug.Print Parse("data")("translations")(1)("translatedText")

End Sub

https://github.com/VBA-tools/VBA-JSON