VBA解析json并循环不同的对象

Sub ParseJSON()
    Dim json As Object
    Dim item As Object
    Dim key As Variant
    
    ' JSON字符串
    Dim jsonString As String
    jsonString = "{""name"": ""John"", ""age"": 30, ""city"": ""New York""}"
    
    ' 解析JSON
    Set json = JsonConverter.ParseJson(jsonString)
    
    ' 循环遍历对象的属性
    For Each key In json.keys
        Set item = json(key)
        
        ' 根据属性类型进行处理
        Select Case TypeName(item)
            Case "String"
                Debug.Print key & ": " & item
            Case "Double"
                Debug.Print key & ": " & item
            Case "Object"
                ' 处理嵌套的对象
                Debug.Print key & ":"
                For Each subKey In item.keys
                    Debug.Print "  " & subKey & ": " & item(subKey)
                Next subKey
            Case "Collection"
                ' 处理数组
                Debug.Print key & ":"
                For Each subItem In item
                    Debug.Print "  " & subItem
                Next subItem
        End Select
    Next key
End Sub