Excel VBA中具有多个标题的XMLHttpRequest

如何解决Excel VBA中具有多个标题的XMLHttpRequest

我当前的代码是

Option Explicit


Sub VBA_API_JSON_test()

'Declare variables
Dim xml_obj As MSXML2.XMLHTTP60

'Create a new Request Object
Set xml_obj = New MSXML2.XMLHTTP60


 Dim base_url,param_header1,param_header2 As String
 
    'Define URL Components
    base_url = "https://..."
    
    param_header1 = XMLHttpRequest.SetRequestHeader("key","1")
    param_header2 = XMLHttpRequest.SetRequestHeader("host","abc.com")

我得到一个未定义为XMLHttpRequest error的变量。我以前没有使用过此代码，也不确定应该添加哪些其他代码，在其他示例中，我没有看到其他代码。

'Combine all the different components into a single URL
    api_url = base_url + param_header1 + param_header2

任何帮助表示赞赏

解决方法

最后，我发现按此顺序放置代码可以得到200个响应（以后需要几个小时才能看到！）：

Dim xml_obj As MSXML2.XMLHTTP60
Set xml_obj = New MSXML2.XMLHTTP60
base_url = "https://url_endpoint.com"
xml_obj.Open "GET",base_url
xml_obj.SetRequestHeader "key","1234"
xml_obj.SetRequestHeader "host","data"
xml_obj.Send

还应该选择“工具”->“参考-VBA项目库”

Microsoft Office 1x.0对象库， Microsoft Excel 1x.0对象库， Microsoft脚本运行时， Microsoft XML v6.0或其他版本

它们可能已经处于活动状态。感谢蒂姆的xml_obj评论。