使用串联的VBA JSON PUT请求

Sub SendJSONPutRequest()
    Dim url As String
    Dim jsonPayload As String
    Dim xmlhttp As Object
    
    ' 设置请求的URL
    url = "https://api.example.com/resource"
    
    ' 设置JSON数据
    jsonPayload = "{""key"": ""value""}"
    
    ' 创建XMLHTTP对象
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    
    ' 打开连接
    xmlhttp.Open "PUT", url, False
    
    ' 设置请求头
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    
    ' 发送请求
    xmlhttp.send jsonPayload
    
    ' 处理响应
    If xmlhttp.Status = 200 Then
        ' 请求成功
        MsgBox "PUT请求成功！"
    Else
        ' 请求失败
        MsgBox "PUT请求失败！"
    End If
    
    ' 清理资源
    Set xmlhttp = Nothing
End Sub