无法使用Github中的JsonConverter.bas循环遍历Excel VBA中JSON中的嵌套数组

Option Explicit

Public Function GetNestedArray(jsonString As String, level As Integer) As Collection
    Dim json As Object
    Dim nestedArray As Collection
    Dim item As Variant
    
    Set json = JsonConverter.ParseJson(jsonString)
    Set nestedArray = New Collection
    
    For Each item In json
        If TypeName(item) = "Collection" Then
            If level > 1 Then
                nestedArray.Add GetNestedArray(JsonConverter.ConvertToJson(item), level - 1)
            Else
                nestedArray.Add item
            End If
        End If
    Next item
    
    Set GetNestedArray = nestedArray
End Function

Sub Main()
    Dim jsonString As String
    Dim nestedArray As Collection
    Dim item As Variant
    
    ' 假设jsonString为包含嵌套数组的JSON字符串
    jsonString = "{""array"": [1, 2, [3, 4, [5, 6]]]}"
    
    ' 获取嵌套数组的层级为2的情况
    Set nestedArray = JsonConverter.GetNestedArray(jsonString, 2)
    
    ' 遍历嵌套数组
    For Each item In nestedArray
        ' 处理每个数组元素
        ' ...
    Next item
End Sub