Как передать Отправить запрос в cURL с помощью Excel VBA? - PullRequest
Новая
       2

Как передать Отправить запрос в cURL с помощью Excel VBA?

0 голосов
/ 12 сентября 2018

Я пытаюсь выяснить, как передать некоторые переменные в API, используя cURL, и получить ответ. Я думаю, что так оно и должно работать, но, честно говоря, я не совсем уверен в терминологии. Во всяком случае, я провел некоторое исследование по этому вопросу и придумал следующий сценарий. 

Sub TryThis()

TargetURL = "https://api-url/email/me@email.com"
Set HTTPReq = CreateObject("WinHttp.WinHttpRequest.5.1")
HTTPReq.Open "GET", TargetURL, False
HTTPReq.Send ("curl -X GET -H ""Authorization: Bearer api_key"" --header ""Accept: application/json"" ""https://api-url/email/me@email.com""")
Debug.Print HTTPReq.responseText

End Sub

Если я возьму то, что здесь: HTTPReq.Send (), и вставлю это в командное окно, оно работает нормально. Я получаю сообщение JSON с некоторыми идентификаторами и соответствующей информацией, которая мне нужна. Я пытаюсь выложить те же результаты в Excel, чтобы я мог просмотреть список элементов в списке и получить результаты для всех.

Я тоже это пробовал. 

Sub AnotherAttempt()

Dim response As String

Url = "https://api-url/email/me@email.com"

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "GET", Url, False
objHTTP.Send

MsgBox response

End Sub

Когда я запускаю это, я получаю сообщение ниже (в строке: objHTTP.Open "GET", Url, False).

enter image description here

Кто-нибудь здесь имеет некоторое представление о том, как я могу заставить это работать? Спасибо.

...