如何从json创建的对象中获取信息

如何从json创建的对象中获取信息,json,vba,Json,Vba,我有一个json字符串:{“jsonrpc”:“2.0”,“result”:[{“event”:{“id”:“27151641”,“name”:“TSW Pegasus FC(Res)v Sun Hei SC(Res)”,“countryCode”:“HK”,“timezone”:“GMT”,“openDate”:“2014-02-19T12:30:00.000Z”},“marketCount”:14},{“event”:“id”:“27151646”,“name”:“Humble Lions

我有一个json字符串:
{“jsonrpc”:“2.0”,“result”:[{“event”:{“id”:“27151641”,“name”:“TSW Pegasus FC(Res)v Sun Hei SC(Res)”,“countryCode”:“HK”,“timezone”:“GMT”,“openDate”:“2014-02-19T12:30:00.000Z”},“marketCount”:14},{“event”:“id”:“27151646”,“name”:“Humble Lions v Boys Town FC…”等等

因此,结果位是事件/市场计数对的列表

这将创建一个对象(jason_obj)这表示上面的结果位。现在我想获取每个事件的id列表。我可以使用for each…构造将每个事件/marketcount对作为对象返回,但我无法确定如何获取事件对象中某个位置的id字段。我尝试使用tostring方法获取线索,从中可以看出此代码应该可以工作但事实并非如此:

For Each eventItem In jason_obj
 this_eventx = eventItem("event")
 this_id = this_eventx("id")
 Next

对访问对象/集合了解不多。有人能帮忙吗?谢谢。需要设置对象,引用应使用项目:

对于jason_obj中的每个事件项

设置此\u eventx=eventItem.item(“事件”)

此\u id=此\u eventx.item(“id”)

下一个

是的