JSON읽는 방법

JSON읽는 방법

JSON을 VBA에서 사용할 일이 그리 없는 데, JSON 을 만들지는 않지만 읽고 그속의 데이터를 뽑는 방법이 있다. Public Function JsonGet(eKey$, eJsonString$, Optional eDlim$ = ".") As String Dim tmp$() Static sJsonString$ If Trim(eKey$) = "" Or Trim(eJsonString$) = "" Then Exit Function If sJsonString <> eJsonString Then sJsonString = eJsonString oScriptEngine.Language = "JScript" Set objJSON = oScriptEngine.E