Opravdu si užívám věci WinHTTP a Web Services (konkrétně REST). I když potřebuji dost zkoumat každou maličkost, kterou se naučím, a teprve začínám, stojí to za to.
Včera večer jsem přišel na to, jak zaokrouhlit proměnnou z VBA do PHP a zpět. Jinými slovy, naučil jsem se předat proměnnou VBA funkci PHP (umístěnou v souboru na serveru AutomateExcel), manipulovat s proměnnou a poté vrátit nový výsledek zpět do VBA.
Poznámka: Proměnná je odeslána jako řetězec.
Do pole se zprávou na tomto obrázku například dorazil:
1. Odeslání proměnné s číslem 15 přes HTTP do souboru PHP na AutomateExcel
2. Funkce PHP převezme proměnnou, vynásobí ji 500 a poté vrátí odpověď, v tomto případě 7500
3. VBA přečte odpověď a vrátí odpověď v msgboxu
Takto vypadá kód PHP. Otevřete poznámkový blok, zkopírujte a vložte tyto informace, uložte soubor s příponou php a nahrajte na server:
| 12345678910111213141516 |
Abych byl příklad jednoduchý, nevrátil jsem odpověď v XML. Zde je kód VBA pro odesílání a přijímání dat, změňte připojovací řetězec tak, aby ukazoval na soubor php, který jste právě vytvořili:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | 'Přidejte odkaz na služby Microsoft WinHTTP.'Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0Soukromé Sub GetItems ()Dim MyCon jako nový WinHttpRequestDim sendthis This As DoubleDim myanswer As String'proměnná k odesláníodeslat toto = 15„Připojovací řetězec k odesláníMyCon.Open "ZÍSKAT", _"https://www.automateexcel.com/excel/pl/server500.php" & _"? PassThis =" & pošlete to'OdeslatMyCon.Send'vrať tomyanswer = MyCon.ResponseTextMsgBox myanswerEnd Sub |
Poznámka: Přidejte odkaz na služby Microsoft WinHTTP
To je úžasné!
