1

我想使用这种方法将数据发布到 Jira：

Private IEService As New MSXML2.XMLHTTP60

Public Function httpPOST(baseUrl As String, url As String, jsonInput As String, auth As String) As String

    Dim accept As String

    accept = "application/json"

    With IEService
    .Open "POST", baseUrl & url, False
        .setRequestHeader "Content-Type", "application/json"
        .setRequestHeader "Accept", accept
        .setRequestHeader "Authorization", "Basic " & auth
        .setRequestHeader "Origin", baseUrl

        .send jsonInput
        httpPOST = .responseText
        'MsgBox (.responseText)
    End With

End Function

数据很好，POST 在后端执行。但是在这种情况下，Jira 返回一个空的响应正文。发生这种情况时，VBA 在 .send jsonInput上崩溃并出现错误：运行时错误 -2147467260

似乎 MSXML2 不处理空响应。但我没有发现任何人在网上搜索时遇到同样的问题。任何想法我做错了什么或如何解决它？谢谢

4

0 回答 0