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

NotePad++ 필수 플러그인 Json Viewer

노트패드++ 를 오래 써왔으면서 플러그인은 별 생각이 없었다.
팀에서 누군가가 무료 플러그인으로 Json 을 편하게 확인하는 것을 보고 띵..
적당히 검색하니 바로 나온다.

https://github.com/kapilratnani/JSON-Viewer/tree/master/NppJSONViewer

노트패드++에서 블럭지정을 한후 Ctrl + Alt + Shift + M 을 누르면 JSon 포맷을 보기 좋게 기입해준다.

Ctrl + Alt + shift + J 를 누르면 Viewer 윈도우에서 Tree 구조로 볼 수 있다.

미처 생각하지 못한 머리 덕분에 손이 고생했다. ㅠㅠ