Jeg liker virkelig WinHTTP og Web Services (spesielt REST). Selv om jeg trenger å forske litt på hver lille ting jeg lærer, og jeg bare har begynt, er det vel verdt det.
I går kveld fant jeg ut hvordan jeg skulle tur -retur en variabel fra VBA til PHP og tilbake. Med andre ord, jeg lærte å overføre en VBA -variabel til en PHP -funksjon (som ligger i en fil på AutomateExcel -serveren), manipulere variabelen og deretter returnere det nye resultatet tilbake til VBA.
Merk: Variabelen sendes som en streng.
For eksempel ble meldingsboksen i dette bildet ankommet av:
1. Sende en variabel som holder tallet 15 over HTTP til en PHP -fil på AutomateExcel
2. En PHP -funksjon tar variabelen, multipliserer den med 500, og returnerer deretter svaret, i dette tilfellet 7500
3. VBA leser svaret og returnerer svaret i en meldingsboks
Slik ser PHP -koden ut. Åpne notisblokken, kopier og lim inn denne informasjonen, lagre filen med filtypen php og last opp til serveren din:
| 12345678910111213141516 |
Jeg returnerte ikke svaret i XML for å holde eksemplet enkelt. Her er VBA -koden for å sende og motta dataene, endre tilkoblingsstrengen for å peke på php -filen du nettopp opprettet:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | 'Legg til en referanse til Microsoft WinHTTP ServicesConst HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0Private Sub GetItems ()Dim MyCon som ny WinHttpRequestDim sendthis As DoubleDim myanswer As String'variabel å sendeSend dette = 15'Tilkoblingsstreng som skal sendesMyCon.Open "GET", _"https://www.automateexcel.com/excel/pl/server500.php" & _"? PassThis =" & sendthis'sende detMyCon.Send'Returner detmyanswer = MyCon.ResponseTextMsgBox myanswerSlutt Sub |
Merk: Legg til en referanse til Microsoft WinHTTP Services
Det er kult!
