在Windows上的Excel VBA中，如何遍历解析的JSON数组？

在Windows上的Excel VBA中，如何遍历解析的JSON数组？

因此，VBA.CallByName也可以访问数组中的元素以及找到数组的长度

'Tools->References->'Microsoft script Control 1.0;  {0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}; C:WindowsSysWOW64msscript.ocxPrivate Sub TestJSonParsingArrayWithCallByName()    Dim oscriptEngine As scriptControl    Set oscriptEngine = New scriptControl    oscriptEngine.Language = "Jscript"    Dim sJsonString As String    sJsonString = "[ 1234, 2345 ]"    Dim objJSON As Object    Set objJSON = oscriptEngine.eval("(" + sJsonString + ")")    '* Using VBA.CallByName we get the length of the array    Dim lLength As Long    lLength = VBA.CallByName(objJSON, "length", VbGet)    Debug.Assert lLength = 2    '* Believe or not one uses "0","1",.... with callbyname to get an element    Debug.Assert VBA.CallByName(objJSON, "0", VbGet) = 1234    Debug.Assert VBA.CallByName(objJSON, "1", VbGet) = 2345End Sub