如何将数组/集合添加到VBA POST JSON

Sub AddArrayToJSON()
    Dim xmlhttp As Object
    Dim json As Object
    Dim dataArray As Variant
    Dim postData As String
    
    '创建XMLHTTP对象
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    
    '定义数组
    dataArray = Array("Item 1", "Item 2", "Item 3")
    
    '创建JSON对象
    Set json = CreateObject("Scripting.Dictionary")
    
    '将数组添加到JSON对象
    json.Add "array", dataArray
    
    '将JSON对象转换为字符串
    postData = jsonToPostData(json)
    
    '发送POST请求
    xmlhttp.Open "POST", "https://example.com/api", False
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    xmlhttp.send postData
    
    '处理响应
    If xmlhttp.Status = 200 Then
        MsgBox "请求成功"
    Else
        MsgBox "请求失败"
    End If
    
    '清理对象
    Set xmlhttp = Nothing
    Set json = Nothing
End Sub

Function jsonToPostData(json As Object) As String
    Dim key As Variant
    Dim postData As String
    
    For Each key In json.keys
        If postData <> "" Then
            postData = postData & ","
        End If
        postData = postData & """" & key & """:"
        
        If IsArray(json(key)) Then
            '如果是数组，则将数组转换为字符串
            postData = postData & "[" & Join(json(key), ",") & "]"
        Else
            '如果是普通值，则直接添加到字符串
            postData = postData & """" & json(key) & """"
        End If
    Next key
    
    jsonToPostData = "{" & postData & "}"
End Function