Man patiešām patīk WinHTTP un tīmekļa pakalpojumu (īpaši REST) lietas. Lai gan man ir diezgan daudz jāizpēta katra mazā lieta, ko es iemācos, un es tikko sāku, tas ir tā vērts.
Vakar vakarā es sapratu, kā mainīt mainīgo no VBA uz PHP un atpakaļ. Citiem vārdiem sakot, es iemācījos nodot VBA mainīgo PHP funkcijai (kas atrodas failā AutomateExcel serverī), manipulēt ar mainīgo un pēc tam atgriezt jauno rezultātu atpakaļ VBA.
Piezīme. Mainīgais tiek nosūtīts kā virkne.
Piemēram, šajā attēlā redzamo ziņojumu lodziņu saņēma:
1. Nosūtot mainīgo, kuram ir skaitlis 15, izmantojot HTTP, uz PHP failu pakalpojumā AutomateExcel
2. Funkcija PHP ņem mainīgo, reizina to ar 500, pēc tam atgriež atbildi, šajā gadījumā 7500
3. VBA nolasa atbildi un atgriež atbildi ziņojuma lodziņā
Lūk, kā izskatās PHP kods. Atveriet piezīmju grāmatiņu, kopējiet un ielīmējiet šo informāciju, saglabājiet failu ar paplašinājumu php un augšupielādējiet savā serverī:
| 12345678910111213141516 |
Es neatgriezu atbildi XML, lai piemērs būtu vienkāršs. Šeit ir VBA kods, lai nosūtītu un saņemtu datus, mainiet savienojuma virkni, lai norādītu uz tikko izveidoto php failu:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 | Pievienojiet atsauci uz Microsoft WinHTTP pakalpojumiemKonstitūcija HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0Privāti apakšiedaļas GetItems ()Dim MyCon kā jauns WinHttpRequestDim sūtīt kā dubultāAptumšot atbildi kā virkni'mainīgais nosūtītsūtīt = 15'Savienojuma virkne nosūtīšanaiMyCon. Atveriet "GET", _"https://www.automateexcel.com/excel/pl/server500.php" & _"? PassThis =" & sendthis'nosūtiet toMyCon. Sūtīt'atdod tomyanswer = MyCon.ResponseTextMsgBox mana atbildeBeigu apakš |
Piezīme. Pievienojiet atsauci uz Microsoft WinHTTP pakalpojumiem
Tas ir lieliski!
