Tražite li način za integraciju web usluge s VBA? Preuzmite nepodržani Microsoft Office XP Web Services Toolkit 2.0 ili Microsoft Office 2003 Web Services Toolkit 2.01
Nakon što sam to učinio, pregledao sam ovaj popis Xmethodsa za javnu web uslugu i pronašao Random Bushism Web Service. Sada mi je cilj bio stvoriti makronaredbu koja bi prikazala okvir s porukom sa nasumičnim "bušizmom" u njemu, pomoću alata za web usluge.
Nekoliko napomena ako želite sami isprobati …
1. Ako to već niste učinili, instalirajte Web Services Toolkit.
2. Otvorite Excel.
3. Otvorite uređivač Visual Basic (Alt + F11).
4. Kliknite novu opciju na izborniku Alati - "Reference web -usluga …"
5. U vašem novootvorenom Obrazac alata kliknite radio gumb "URL web usluge" i unesite ovu adresu: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Pritisnite gumb za pretraživanje.
7. Nadajmo se da je pronašao web uslugu Bushism i naveo ga u okviru "Rezultati pretraživanja". Postavite kvačicu za odabir web usluge i kliknite "Dodaj gumb".
8. Umetnite modul. Vaš bi uređivač sada trebao izgledati otprilike ovako:
9. Dodajte ovaj kôd u svoj modul, po želji pospite rješavanjem pogrešaka, pokrenite ili nazovite GetRandomBushism Macro:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismPostavi BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context,, "Bušizam"Kraj podm |
