Получите копию этого проекта , добавьте его в свой проект VBA. Вам нужно добавить ссылку на Microsoft Scripting Runtime
, чтобы это работало, так как результаты проанализированной строки сохраняются в словаре. Как только это будет сделано, вы можете проанализировать JSON следующим образом:
Sub ParseSomeJson()
Dim jsonString As String
Dim json As Object
jsonString = "{""word"":""something"", ""id"":1023}" 'I adjusted this
Set json = JsonConverter.ParseJson(jsonString)
Debug.Print json("word"), json("id")
End Sub
Ты вернешься:
something 1023