http setRequestHeader 的运行时错误

Question

Public Function WebRequest(url As String, sVal1 As String, sVal2 As Integer) As String
    Dim xmlhttp As MSXML2.xmlhttp
    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    'xmlhttp.setRequestHeader "Accept", "text/xml"
    'xmlhttp.setRequestHeader "Value1", sVal1
    'xmlhttp.setRequestHeader "Value2", sVal2

    xmlhttp.open "GET", url, False
    xmlhttp.send

    WebRequest = xmlhttp.responseText
    Set xmlhttp = Nothing
End Function

当我运行此函数时，即使注释掉其他参数，它也会在以下行失败：xmlhttp.setRequestHeader "Content-Type", "application/json"无论我在请求标头字段中放入什么内容。

我收到错误：Run-time error '-2147467259(80004005)' Unspecified error如果我注释掉 setRequestHeader 行，那么它可以正常工作，但是 API 返回我缺少标头字段（预期）我已经尝试了 MS XML v3.0 和 v6.0，并且完全没有想法。 。

Answer 1

打开请求后设置请求标头。