Какой код VBA требуется для выполнения HTTP POST из электронной таблицы Excel?
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
.
Если вам нужно работать как на 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
Примечания:
Для получения более подробной информации вы можете увидеть мое полное резюме о с помощью веб-служб из Excel.
В дополнение к 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".
Вы можете использовать ServerXMLHTTP в проекте VBA, добавив ссылку на MSXML.
(из Ссылка на MSXML в проектах VBA)
Документация ServerXMLHTTP MSDN содержит полную информацию обо всех свойствах и методах ServerXMLHTTP.
Короче говоря, он работает в основном так:
Я сделал это перед использованием библиотеки MSXML, а затем с помощью объекта XMLHttpRequest. См. http://scriptorium.serve-it.nl/view.php?sid=40