Nihar Arisal
New Member
{"values":[
{"a":1,"b":2,"c": 3}]}
above json data is in a json file "testj.json"
code:
{"a":1,"b":2,"c": 3}]}
above json data is in a json file "testj.json"
code:
Code:
Sub Tester()
Dim j, o, events, k, participants, v, sites
Dim FSO As New FileSystemObject
Dim JsonTS As TextStream
Dim JsonText As String
Set JsonTS = FSO.OpenTextFile("C:\Users\inarin01\Desktop\Macro learning\testj.json", ForReading)
JsonText = JsonTS.ReadAll
JsonTS.Close
Set j = JsonConverter.ParseJson(JsonText)
Set events = j("hMapCB")
For Each k In events
Debug.Print "event", k
stg = events(k)
Set participants = events(k)("participants")
For Each v In participants
Debug.Print , "participant", v
Next v
Set sites = events(k)("sites")
For Each v In sites
Debug.Print , "site", v
Next v
Next
End Sub