Ich genieße die WinHTTP- und Webdienste (insbesondere REST) wirklich. Auch wenn ich für jede Kleinigkeit, die ich lerne, einiges recherchieren muss und ich gerade erst damit anfange, lohnt es sich.
Letzte Nacht habe ich herausgefunden, wie man eine Variable von VBA zu PHP und zurück umläuft. Mit anderen Worten, ich habe gelernt, wie man eine VBA-Variable an eine PHP-Funktion (die sich in einer Datei auf dem AutomateExcel-Server befindet) übergibt, die Variable manipuliert und dann das neue Ergebnis an VBA zurückgibt.
Hinweis: Die Variable wird als String gesendet.
Das Nachrichtenfeld in diesem Bild wurde beispielsweise erreicht von:
1. Senden einer Variablen mit der Nummer 15 über HTTP an eine PHP-Datei in AutomateExcel
2. Eine PHP-Funktion nimmt die Variable, multipliziert sie mit 500 und gibt dann die Antwort zurück, in diesem Fall 7500
3. VBA liest die Antwort und gibt die Antwort in einer Msgbox zurück
So sieht der PHP-Code aus. Öffnen Sie den Editor, kopieren Sie diese Informationen und fügen Sie sie ein, speichern Sie die Datei mit der Erweiterung php und laden Sie sie auf Ihren Server hoch:
| 12345678910111213141516 |
Ich habe die Antwort nicht in XML zurückgegeben, um das Beispiel einfach zu halten. Hier ist der VBA-Code zum Senden und Empfangen der Daten. Ändern Sie die Verbindungszeichenfolge so, dass sie auf die soeben erstellte PHP-Datei verweist:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | ' Verweis auf Microsoft WinHTTP-Dienste hinzufügenKonst HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0Private Sub GetItems()Dim MyCon als neue WinHttpRequestDim sendthis als DoubleMeine Antwort als String dimmen'variable zu sendensendthis = 15'Zu sendender VerbindungsstringMyCon.Open "GET", _"https://www.automateexcel.com/excel/pl/server500.php" & _"?PassThis=" & sendthis'schicken Sie esMyCon.Send'Gib es zurückmyanswer = MyCon.ResponseTextMsgBox meineAntwortEnd Sub |
Hinweis: Fügen Sie einen Verweis auf Microsoft WinHTTP-Dienste hinzu
Das ist toll!
