Comment envoyer une requête HTTP POST à ​​un serveur à partir d'Excel à l'aide de VBA?

Question

Quel code VBA est requis pour exécuter un POST HTTP à partir d'une feuille de calcul 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("") 

Sinon, pour un meilleur contrôle sur la requête HTTP, vous pouvez utiliser WinHttp.WinHttpRequest.5.1 en place de MSXML2.ServerXMLHTTP.

Answer 2

Vous pouvez utiliser ServerXMLHTTP dans un projet VBA en ajoutant une référence à MSXML.

1. Ouvrez l'éditeur VBA (généralement en éditant une macro)
2. Aller à la liste des références disponibles
3. Vérifiez Microsoft XML
4. Cliquez sur OK.

(de Referencing MSXML within VBA Projects)

Le ServerXMLHTTP MSDN documentation a plus de détails sur toutes les propriétés et méthodes de ServerXMLHTTP.

En bref cependant, il fonctionne essentiellement comme ceci:

1. Appel de méthode open pour se connecter au serveur distant
2. Appel send pour envoyer la demande.
3. Lire la réponse via responseXML, responseText, responseStream ou responseBody

Answer 3

Je l'ai fait avant d'utiliser la bibliothèque MSXML, puis en utilisant l'objet XMLHttpRequest. Voir http://scriptorium.serve-it.nl/view.php?sid=40

Answer 4

Si vous avez besoin de travailler sur Mac et Windows, vous pouvez utiliser 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 

Notes:

• En ce qui concerne la sortie ... Je ne sais pas s'il est possible de renvoie les résultats à la même cellule qui a appelé la fonction VBA. Dans l'exemple ci-dessus, le résultat est écrit en A2.
• En ce qui concerne l'entrée ... Si vous voulez que les résultats soient actualisés lorsque vous changez certaines cellules, assurez-vous que ces cellules sont l'argument de votre fonction VBA.
• Cela ne fonctionnera pas sur Excel pour Mac 2008, qui ne possède pas VBA. Excel pour Mac 2011 a retrouvé VBA.

Pour plus de détails, vous pouvez voir mon résumé complet sur "using web services from Excel".

Answer 5

En plus du anwser de Bill the Lizard:

La plupart des backends analysent les données brutes POST. En PHP par exemple, vous aurez un tableau $ _POST dans lequel des variables individuelles dans les données de poste seront stockées.Dans ce cas, vous devez utiliser un en-tête supplémentaire "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") 

Sinon, vous devez lire les données POST brutes sur la variable "$ HTTP_RAW_POST_DATA".