Как я могу отправить HTTP-запрос POST на сервер из Excel, используя VBA?

Question

Какой код VBA требуется для выполнения HTTP POST из электронной таблицы Excel?

Answer 1

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send("")

Кроме того, для большего контроля над HTTP-запросом вы можете использовать WinHttp.WinHttpRequest.5.1 на месте MSXML2.ServerXMLHTTP,

Answer 2

В дополнение к ответу Билла Ящера:

Большинство бэкэндов анализируют необработанные почтовые данные. Например, в PHP у вас будет массив $_POST, в котором будут храниться отдельные переменные в данных поста. В этом случае вы должны использовать дополнительный заголовок "Content-type: application/x-www-form-urlencoded":

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.send ("var1=value1&var2=value2&var3=value3")

В противном случае вы должны прочитать необработанные данные поста в переменной "$HTTP_RAW_POST_DATA".

Answer 3

Если вам это нужно для работы на Mac и Windows, вы можете использовать QueryTables:

With ActiveSheet.QueryTables.Add(Connection:="URL;http://carbon.brighterplanet.com/flights.txt", Destination:=Range("A2"))
    .PostText = "origin_airport=MSN&destination_airport=ORD"
    .RefreshStyle = xlOverwriteCells
    .SaveData = True
    .Refresh
End With

Заметки:

• Что касается вывода... Я не знаю, возможно ли вернуть результаты в ту же ячейку, которая вызвала функцию VBA. В приведенном выше примере результат записывается в A2.
• Что касается ввода... Если вы хотите, чтобы результаты обновлялись при изменении определенных ячеек, убедитесь, что эти ячейки являются аргументом вашей функции VBA.
• Это не будет работать в Excel для Mac 2008, где нет VBA. Excel для Mac 2011 вернул VBA.

Для более подробной информации, вы можете увидеть мое полное резюме о " использовании веб-служб из Excel".

Answer 4

Чтобы завершить ответ других пользователей:

Для этого я создал объект "WinHttp.WinHttpRequest.5.1".

Отправьте почтовый запрос с некоторыми данными из Excel с помощью VBA:

Dim LoginRequest As Object
Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
LoginRequest.Open "POST", "http://...", False
LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
LoginRequest.send ("key1=value1&key2=value2")

Отправьте запрос на получение с аутентификацией токена из Excel с помощью VBA:

Dim TCRequestItem As Object
Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
TCRequestItem.Open "GET", "http://...", False
TCRequestItem.setRequestHeader "Content-Type", "application/xml"
TCRequestItem.setRequestHeader "Accept", "application/xml"
TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
TCRequestItem.send

Answer 5

Вы можете использовать ServerXMLHTTP в проекте VBA, добавив ссылку на MSXML.

1. Откройте редактор VBA (обычно путем редактирования макроса)
2. Перейти к списку доступных ссылок
3. Проверьте Microsoft XML
4. Нажмите ОК.

(из ссылок на MSXML в проектах VBA)

Документация ServerXMLHTTP MSDN содержит полную информацию обо всех свойствах и методах ServerXMLHTTP.

Короче говоря, это работает в основном так:

1. Вызовите метод open для подключения к удаленному серверу.
2. Позвоните, чтобы отправить запрос.
3. Прочитать ответ через responseXML, responseText, responseStream или responseBody

Answer 6

Я сделал это до использования библиотеки MSXML, а затем с помощью объекта XMLHttpRequest. Смотрите http://scriptorium.serve-it.nl/view.php?sid=40