Jeg nyder virkelig tingene WinHTTP og Web Services (specifikt REST). Selvom jeg skal undersøge en hel del for hver lille ting, jeg lærer, og jeg lige er begyndt, er det det hele værd.
I aftes fandt jeg ud af, hvordan jeg skulle tur -retur en variabel fra VBA til PHP og tilbage. Med andre ord lærte jeg, hvordan man overfører en VBA -variabel til en PHP -funktion (der ligger i en fil på AutomateExcel -serveren), manipulerer variablen og derefter returnerer det nye resultat tilbage til VBA.
Bemærk: Variablen sendes som en streng.
For eksempel blev meddelelsesboksen i dette billede ankommet af:
1. Sende en variabel, der holder tallet 15 over HTTP til en PHP -fil på AutomateExcel
2. En PHP -funktion tager variablen, multiplicerer den med 500, og returnerer derefter svaret, i dette tilfælde 7500
3. VBA læser svaret og returnerer svaret i en msgbox
Sådan ser PHP -koden ud. Åbn notesblok, kopier og indsæt disse oplysninger, gem filen med udvidelsen php, og upload til din server:
| 12345678910111213141516 |
Jeg returnerede ikke svaret i XML for at holde eksemplet enkelt. Her er VBA -koden til at sende og modtage dataene, ændre forbindelsesstrengen for at pege på den php -fil, du lige har oprettet:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | 'Tilføj en reference til Microsoft WinHTTP ServicesConst HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0Private sub GetItems ()Dim MyCon som ny WinHttpRequestDim sendthis As DoubleDim myanswer som streng'variabel, der skal sendessendthis = 15'Forbindelsesstreng, der skal sendesMyCon.Open "GET", _"https://www.automateexcel.com/excel/pl/server500.php" & _"? PassThis =" & sendthis'sende detMyCon.Send'returner detmyanswer = MyCon.ResponseTextMsgBox myanswerAfslut Sub |
Bemærk: Tilføj en reference til Microsoft WinHTTP Services
Det er fantastisk!
