Zaista uživam u stvarima WinHTTP i web usluga (posebno REST). Iako moram poprilično istražiti svaku sitnicu koju naučim, a tek počinjem, isplati se.
Sinoć sam smislio kako zaobići varijablu od VBA do PHP i natrag. Drugim riječima, naučio sam kako proslijediti VBA varijablu u PHP funkciju (koja se nalazi u datoteci na poslužitelju AutomateExcel), manipulirati varijablom, a zatim vratiti novi rezultat natrag u VBA.
Napomena: Varijabla se šalje kao niz.
Na primjer, u okvir za poruku na ovoj slici stigao je:
1. Slanje varijable koja drži broj 15 preko HTTP -a u PHP datoteku na AutomateExcel
2. PHP funkcija uzima varijablu, pomnoži je s 500, a zatim vraća odgovor, u ovom slučaju 7500
3. VBA čita odgovor i vraća odgovor u poruku
Evo kako izgleda PHP kod. Otvorite bilježnicu, kopirajte i zalijepite ove podatke, spremite datoteku s nastavkom php i prenesite na svoj poslužitelj:
| 12345678910111213141516 |
Nisam vratio odgovor u XML -u kako bi primjer bio jednostavan. Evo VBA koda za slanje i primanje podataka, promijenite niz veze tako da pokazuje na php datoteku koju ste upravo stvorili:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | 'Dodajte referencu na Microsoft WinHTTP ServicesKonst. HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0Privatni pod GetItems ()Zatamnite MyCon kao novi WinHttpRequestZatamni ovo kao dvostrukoDim myanswer As String'varijabla za slanješalje ovo = 15'Niz veze za slanjeMyCon.Otvorite "GET", _"https://www.automateexcel.com/excel/pl/server500.php" & _"? PassThis =" & pošalji ovo'poslati gaMyCon.Send'vrati tomyanswer = MyCon.ResponseTextMsgBox moj odgovorKraj podm |
Napomena: Dodajte referencu na Microsoft WinHTTP Services
To je odlično!
