vba把json转数组中_在Windows上的Excel VBA中，如何遍历解析的JSON数组？

首先，我不再使用自定义JSON解析库，而是使用ScriptControl的Eval方法作为所有JSON代码的基础。另外，我们对本机Microsoft解决方案表示偏爱。

这是一个先前的问题，在Windows上的Excel

VBA中，如何减轻IDE的大写行为破坏解析的JSON的点语法遍历的问题？这个问题基于此。它显示了与使用点语法遍历已解析的JSON对象相比，使用VBA.CallByName的鲁棒性更高。

在此问题中，询问如何遍历已解析的JSON数组。首先，这里是一个带帽子技巧的小脚本方法，用于ozmike

'Tools->References->

'Microsoft Script Control 1.0; {0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}; C:\Windows\SysWOW64\msscript.ocx

Private Sub TestJSONParsingArrayWithMiniScript()

'Hat tip to ozmike https://stackoverflow.com/users/334106/ozmike

'Based on https://stackoverflow.com/questions/5773683/excel-vba-parsed-json-object-loop#19359035

Dim oScriptEngine As ScriptControl

Set oScriptEngine = New ScriptControl

oScriptEngine.Language = "JScript"

oScriptEngine.AddCode "Object.prototype.myitem