了解在Excel 2010中设置VBJSON类

Question

我已经从这个网站下载并设置了VB6的JSON解析器：VB-JSON

我不明白这个模块是如何工作的。我在Excel2010中成功地设置了它，我想我也理解JSON格式，但我不知道这个类是如何提取项的。我尝试以JSON格式解析以下文本

{"realms":[{"type":"pvp","population":"low","queue":false,"wintergrasp":{"area":1,"controlling-faction":1,"status":0,"next":1356724174636},"tol-barad":{"area":21,"controlling-faction":1,"status":0,"next":1356723246779},"status":true,"name":"Kor'gall","slug":"korgall","battlegroup":"Cruelty / Crueldad","locale":"en_GB","timezone":"Europe/Paris"},{"type":"pve","population":"medium","queue":false,"wintergrasp":{"area":1,"controlling-faction":0,"status":0,"next":1356724425638},"tol-barad":{"area":21,"controlling-faction":0,"status":0,"next":1356723369780},"status":true,"name":"Alonsus","slug":"alonsus","battlegroup":"Cruelty / Crueldad","locale":"en_GB","timezone":"Europe/Paris"}]}

当使用以下地址时，浏览器将返回此内容：Alonsus, Kor'gall

我写了一个类似下面的代码

Dim objJSON As Object
...
strData = objJSON.Item("Realms")(1).Item("Type")

但它会导致错误："Object variable or With block variable not set“。我期望得到"pve“值。我很困惑，因为它以一个名为"realms“的对象开头，后跟一个Array。该数组应该作为集合返回。如果有任何帮助，我将不胜感激。

谢谢

Answer 1

set objJSON = JSON.Parse(jsonFromUrl)
strData = objJSON.Item("realms").Item(1).Item("type")

json中的键是区分大小写的。