Excel VBA JSON POST循环

Sub JSON_POST_Loop()
    Dim json As Object
    Dim http As Object
    Dim url As String
    Dim data As String
    Dim i As Integer
    
    ' 创建JSON对象
    Set json = CreateObject("Scripting.Dictionary")
    
    ' 设置JSON数据
    json("name") = "John"
    json("age") = 30
    
    ' 创建HTTP对象
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 设置请求URL
    url = "http://example.com/api"
    
    ' 循环发送多个JSON数据
    For i = 1 To 10
        ' 设置JSON数据
        json("index") = i
        
        ' 将JSON数据转换为字符串
        data = jsonToString(json)
        
        ' 发送POST请求
        http.Open "POST", url, False
        http.setRequestHeader "Content-Type", "application/json"
        http.send data
        
        ' 处理响应数据
        MsgBox http.responseText
    Next i
End Sub

Function jsonToString(json As Object) As String
    Dim scriptEngine As Object
    Set scriptEngine = CreateObject("ScriptControl")
    scriptEngine.Language = "JScript"
    jsonToString = scriptEngine.Eval("(" + jsonConverter.ConvertToJson(json) + ")")
End Function