Excel VBA MSXML2后响应正文空运行时错误-2147467260

我想用这种方法发布数据给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不处理空的答复。 但我还没有发现任何人在网上search相同的问题。 任何想法我做错了或如何解决它? 谢谢