VBA post请求错误-多部分/表单数据

Function CreateMultipartFormData(ByVal boundary As String, ByVal data As String) As String
    Dim formData As String
    formData = "--" & boundary & vbCrLf
    formData = formData & "Content-Disposition: form-data; name=""data""" & vbCrLf & vbCrLf
    formData = formData & data & vbCrLf
    formData = formData & "--" & boundary & "--" & vbCrLf
    CreateMultipartFormData = formData
End Function

Sub SendPostRequest()
    Dim url As String
    Dim requestData As String
    Dim boundary As String
    Dim httpRequest As Object
    
    url = "https://example.com/api"
    requestData = "your request data"
    boundary = "---------------------------" & Format(Now, "yyyyMMddhhmmss")
    
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    httpRequest.Open "POST", url, False
    httpRequest.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
    httpRequest.send CreateMultipartFormData(boundary, requestData)
    
    ' 处理响应
    MsgBox httpRequest.responseText
    
    Set httpRequest = Nothing
End Sub