检索节点 JSON 类型数组

Question

同胞们！

请参阅我的代码。在这一点上，我有一个名为objJSON的对象。如您所见，它包含不错的信息。但是请帮助我获得位置 1/Item 1/authorDisplayname 中的信息，这将是字符串"Jens Christian"。

提前致谢

彼得·汉森

来自宏编辑器 Excel 的剪切

Answer 1

这里有一种方法可以做到这一点：

Dim oScriptEngine As ScriptControl
Set oScriptEngine = New ScriptControl
oScriptEngine.Language = "JScript"
'create a js object in the scriptengine
'(loading a sample of your json from a worksheet cell)
oScriptEngine.Eval ("var json=(" + Range("A3").Value + ")")
'query the object properties
Debug.Print oScriptEngine.Eval("json.length")               '>> 3
Debug.Print oScriptEngine.Eval("json[0].authorDisplayName") '>> Peter Bunde Hansen

但是，如果您正在执行任何数量，则应考虑使用类似 https://github.com/VBA-tools/VBA-JSON