Îmi place foarte mult lucrurile WinHTTP și Web Services (în special REST). Chiar dacă trebuie să cercetez destul de puțin pentru fiecare lucru mic pe care îl învăț și abia încep, merită foarte mult.
Aseară mi-am dat seama cum să dus-întors o variabilă de la VBA la PHP și înapoi. Cu alte cuvinte, am învățat cum să trec o variabilă VBA către o funcție PHP (care locuiește într-un fișier de pe serverul AutomateExcel), să manipulez variabila, apoi să returnez noul rezultat înapoi la VBA.
Notă: Variabila este trimisă ca un șir.
De exemplu, căsuța de mesaje din această imagine a ajuns la:
1. Trimiterea unei variabile care deține numărul 15 prin HTTP către un fișier PHP pe AutomateExcel
2. O funcție PHP ia variabila, o multiplică cu 500, apoi returnează răspunsul, în acest caz 7500
3. VBA citește răspunsul și returnează răspunsul într-un msgbox
Iată cum arată codul PHP. Deschideți blocnotesul, copiați și lipiți aceste informații, salvați fișierul cu extensia php și încărcați pe serverul dvs.:
| 12345678910111213141516 |
Nu am returnat răspunsul în XML pentru a păstra exemplul simplu. Iată codul VBA pentru a trimite și primi datele, modificați șirul de conexiune pentru a indica fișierul php pe care tocmai l-ați creat:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | 'Adăugați o referință la serviciile Microsoft WinHTTPConst HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0Private Sub GetItems ()Dim MyCon ca nou WinHttpRequestDim sendthis As DoubleDim myanswer As String'variabilă de trimissendthis = 15'Șir de conexiune de trimisMyCon.Open „GET”, _„https://www.automateexcel.com/excel/pl/server500.php” & _"? PassThis =" & sendthis'Trimite-lMyCon.Send'returneaza-lmyanswer = MyCon.ResponseTextMsgBox myanswerSfârșitul Sub |
Notă: Adăugați o referință la Microsoft WinHTTP Services
Asta-i grozav!
