HTTP-ответ (GET) в VBA

Question

Как GET ответить, используя VBA?

Этот код здесь не работает.В 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 данные.

Answer 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