Wie kann ich mit VBA eine HTTP-POST-Anfrage von Excel an einen Server senden?

Welcher VBA-Code ist erforderlich, um einen HTTP-POST aus einer Excel-Tabelle auszuführen?

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("")

Alternativ können Sie für eine bessere Kontrolle über die HTTP-Anforderung WinHttp.WinHttpRequest.5.1anstelle von verwenden MSXML2.ServerXMLHTTP.

Wenn Sie es für Mac und Windows benötigen, können Sie QueryTables verwenden:

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

Anmerkungen:

• In Bezug auf die Ausgabe ... Ich weiß nicht, ob es möglich ist, die Ergebnisse an dieselbe Zelle zurückzugeben, die die VBA-Funktion aufgerufen hat. Im obigen Beispiel wird das Ergebnis in A2 geschrieben.
• Informationen zur Eingabe ... Wenn Sie möchten, dass die Ergebnisse beim Ändern bestimmter Zellen aktualisiert werden, stellen Sie sicher, dass diese Zellen das Argument für Ihre VBA-Funktion sind.
• Dies funktioniert nicht unter Excel für Mac 2008, das kein VBA hat. Excel für Mac 2011 hat VBA zurückbekommen.

Für weitere Details können Sie meine vollständige Zusammenfassung über " Verwenden von Webdiensten aus Excel ".

Neben der Antwort von Bill the Lizard :

Die meisten Backends analysieren die Rohdaten der Post. In PHP haben Sie beispielsweise ein Array, $_POSTin dem einzelne Variablen in den Post-Daten gespeichert werden. In diesem Fall müssen Sie einen zusätzlichen Header verwenden "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")

Andernfalls müssen Sie die Rohdaten der Post für die Variable lesen "$HTTP_RAW_POST_DATA".

Sie können ServerXMLHTTPin einem VBA-Projekt verwenden, indem Sie einen Verweis auf hinzufügen MSXML.

1. Öffnen Sie den VBA-Editor (normalerweise durch Bearbeiten eines Makros).
2. Gehen Sie zur Liste der verfügbaren Referenzen
3. Überprüfen Sie Microsoft XML
4. OK klicken.

(aus Referenzieren von MSXML in VBA-Projekten )

Die ServerXMLHTTP-MSDN-Dokumentation enthält ausführliche Informationen zu allen Eigenschaften und Methoden von ServerXMLHTTP.

Kurz gesagt, es funktioniert im Grunde so:

1. Anruf offen Methode auf, um eine Verbindung zum Remote-Server herzustellen
2. Anruf senden an, um die Anfrage zu senden.
3. Lesen Sie die Antwort über responseXML , responseText , responseStream oder responseBody

So vervollständigen Sie die Antwort der anderen Benutzer:

Dafür habe ich ein "WinHttp.WinHttpRequest.5.1" Objekt erstellt.

Senden Sie eine Post-Anfrage mit einigen Daten aus Excel mit 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")

Senden Sie eine Get-Anfrage mit Token-Authentifizierung aus Excel mit 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

Ich habe dies getan, bevor ich die MSXML-Bibliothek und dann das XMLHttpRequest-Objekt verwendet habe (siehe hier) .