VBA 中的 HTTP 响应 (GET)

【问题标题】：HTTP Response (GET) in VBAVBA 中的 HTTP 响应 (GET)
【发布时间】：2019-06-27 23:30:50
【问题描述】：

如何使用 VBA GET 响应？

这里的代码不起作用。在Debug.Pring() 或MsgBox 中为空。

TargetURL = snURL + selectedMail
Set HTTPReq = CreateObject("WinHttp.WinHttpRequest.5.1")
HTTPReq.Open "GET", TargetURL, False
HTTPReq.SetCredentials snUser, snPass, 0
HTTPReq.setRequestHeader "Accept", "application/json"

Debug.Print HTTPReq.responseText

我想获取JSON 数据。

【问题讨论】：

看看this是否有帮助。

标签： vba outlook

【解决方案1】：

可选库（需要，如果使用早期绑定，通常代码在没有它们的情况下也可以工作）：

更改companyName 变量：

Sub TestMe()

    Dim xmlObject As Object
    Dim companyName As String: companyName = "Google"
    Dim strUrl As String
    strUrl = "http://dev.markitondemand.com/MODApis/Api/v2/Lookup/json?input=" & companyName

    Set xmlObject = CreateObject("MSXML2.XMLHTTP")
        With xmlObject
        .Open "GET", strUrl, False
        .Send
    End With

    Dim response As String
    response = "{""data"":" & xmlObject.ResponseText & "}"
    Debug.Print response

End Sub

【讨论】：