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

Question

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

120

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

Matthew Murdoch 01 окт. 2008, в 17:39

Источник

Теги:

vba

excel-vba

excel

post

http

serverxmlhttp

5 ответов

49

Если вам нужно работать как на 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.

Seamus Abshere 06 янв. 2011, в 18:01

3

+1: мне это нужно только в Windows, но кроссплатформенное решение может принести пользу кому-то еще.
Matthew Murdoch 07 янв. 2011, в 14:27
0

Я не думаю, что вы можете получить доступ к HTML-коду, вы можете получить информацию только на отображаемой веб-странице (не фактический HTML-код)
user1493046 01 май 2013, в 13:36
1

+1 для кроссплатформенного решения и +1 (если бы я мог) за полное резюме со ссылкой на гист и все. Спасибо!!
Andy Terra 22 июль 2013, в 23:36
0

Я должен был поддерживать и Windows, и Mac, и это решение было правильным! Обратите внимание, что когда вы указываете PostText, URL должен обрабатывать запросы POST, в противном случае он должен обрабатывать запросы GET.
amolk 24 окт. 2013, в 22:15
1

Можно ли вывести результаты в переменную вместо диапазона? Нужно сделать несколько разборов Json.
Stanislasdrg 13 июль 2016, в 16:12

Показать ещё 3 комментария

36

В дополнение к anwser Bill the Lizard:

Большинство бэкэндов анализируют исходные данные. Например, в 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".

thiscode 10 июль 2013, в 13:51

0

Я пытаюсь опубликовать этот запрос (с фигурными скобками) и получить ошибки компиляции ... Можете ли вы помочь: "{" request ": {" carName ":" Honda "," model ":" 1A5 "}}"
fiddle 06 фев. 2018, в 07:05

5

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

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

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

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

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

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

Mark Biek 01 окт. 2008, в 17:24

0

эта ссылка использует JScript, а не VBA
John Henckel 19 авг. 2016, в 04:16
1

Спасибо @ДжонХенкель. Я внес некоторые изменения, чтобы обновить этот ответ.
Mark Biek 19 авг. 2016, в 11:39

0

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

Sijin 01 окт. 2008, в 18:57

Ещё вопросы

+1: мне это нужно только в Windows, но кроссплатформенное решение может принести пользу кому-то еще.
Я не думаю, что вы можете получить доступ к HTML-коду, вы можете получить информацию только на отображаемой веб-странице (не фактический HTML-код)
+1 для кроссплатформенного решения и +1 (если бы я мог) за полное резюме со ссылкой на гист и все. Спасибо!!
Я должен был поддерживать и Windows, и Mac, и это решение было правильным! Обратите внимание, что когда вы указываете PostText, URL должен обрабатывать запросы POST, в противном случае он должен обрабатывать запросы GET.
Можно ли вывести результаты в переменную вместо диапазона? Нужно сделать несколько разборов Json.
Я пытаюсь опубликовать этот запрос (с фигурными скобками) и получить ошибки компиляции ... Можете ли вы помочь: "{" request ": {" carName ":" Honda "," model ":" 1A5 "}}"
эта ссылка использует JScript, а не VBA
Спасибо @ДжонХенкель. Я внес некоторые изменения, чтобы обновить этот ответ.

Bill the Lizard · Accepted Answer · 2008-10-01T17-37-00.000Z

126

Лучший ответ

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.

Bill the Lizard 01 окт. 2008, в 17:37

9

Для большего контроля над HTTP-запросом вы можете использовать «WinHttp.WinHttpRequest.5.1» вместо «MSXML2.ServerXMLHTTP»
Matthew Murdoch 03 окт. 2008, в 10:23
5

Следует отметить, что вы также можете использовать это для выдачи HTTP PUT, изменив «POST» на «PUT». Содержимое для PUT передается в методе .send (). Любые дополнительные заголовки, которые вам нужно установить, могут быть выполнены также в соответствии с синтаксисом, использованным в примере User-Agent.
radicand 24 янв. 2012, в 04:47
5

Пожалуйста, не используйте скобки вокруг параметров, если вы не используете возвращаемое значение Sub: Синтаксис VBA не допускает скобки вокруг параметров Sub (хотя они необходимы для функций), поэтому эти скобки на самом деле являются арифметическими скобками, используемыми для пояснения приоритета оператора. Помимо введения в заблуждение и неясности, это может в конечном итоге привести к ошибке времени выполнения, если аргумент является объектом. И хотя это явно не запрашивается, обычно вы хотите использовать HTTP-ответ, который, как вы могли бы упомянуть, можно получить с помощью objHTTP.responseText .
Leviathan 09 янв. 2017, в 20:08
3

@Leviathan парены на самом деле делают больше, чем просто: они заставляют среду выполнения VBA оценивать выражение как значение и передают его методу ByVal независимо от того, говорит ли сигнатура метода ByRef или нет. Вот почему их использование с объектными переменными типа, который не имеет члена по умолчанию, вызывает ошибки во время выполнения; и используя их для объекта, который имеет элемент по умолчанию, передает значение этого элемента по умолчанию вместо фактического объекта.
Mathieu Guindon 11 окт. 2017, в 20:25

Показать ещё 2 комментария