Iščete način za integracijo spletne storitve z VBA? Prenesite nepodprti komplet orodij za spletne storitve Microsoft Office XP 2.0 ali komplet orodij za spletne storitve Microsoft Office 2003 2.01
Ko sem to storil sam, sem brskal po tem seznamu Xmethods za javno spletno storitev in našel spletno storitev Random Bushism. Zdaj je bil moj cilj ustvariti makro, ki bi prikazal polje s sporočilom z naključnim "bušizmom" v njem, z uporabo nabora orodij za spletne storitve.
Nekaj opomb, če bi želeli preizkusiti tudi sami …
1. Če tega še niste storili, namestite nabor orodij za spletne storitve.
2. Odprite Excel.
3. Odprite urejevalnik Visual Basic (Alt + F11).
4. V meniju Orodja kliknite novo možnost - »Reference spletnih storitev…«
5. V vašem novo odprtem Obrazec kompleta orodij kliknite izbirni gumb »URL spletne storitve« in vnesite ta naslov: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Kliknite gumb za iskanje.
7. Upajmo, da je našel spletno storitev Bushism in jo navedel v polju »Rezultati iskanja«. Potrdite polje, da izberete spletno storitev, in kliknite »Dodaj gumb«.
8. Vstavite modul. Vaš urejevalnik bi moral izgledati nekako tako:
9. Dodajte to kodo v svoj modul, po želji potresite z odpravljanjem napak, zaženite ali pokličite makro GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismNastavite BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context,, "Bušizem"End Sub |
