Hľadáte spôsob, ako integrovať webovú službu s VBA? Stiahnite si nepodporovanú sadu Microsoft Web Services Toolkit 2.0 alebo Microsoft Office 2003 Web Services Toolkit 2.01
Potom, čo som to urobil sám, prešiel som tento zoznam Xmethods pre verejnú webovú službu a našiel som webovú službu Random Bushism. Teraz bolo mojím cieľom vytvoriť makro, ktoré by zobrazovalo okno so správou s náhodným „bushizmom“ pomocou sady nástrojov webových služieb.
Niekoľko poznámok, ak by ste to chceli vyskúšať sami …
1. Ak ste to ešte neurobili, nainštalujte si sadu webových služieb.
2. Otvorte Excel.
3. Otvorte editor jazyka Visual Basic (Alt + F11).
4. Kliknite na novú možnosť v ponuke Nástroje - „Referencie na webové služby …“
5. Vo vašom novootvorenom Formulár nástrojov kliknite na prepínač „Webová adresa URL webovej služby“ a zadajte túto adresu: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Kliknite na tlačidlo Hľadať.
7. Našťastie našlo webovú službu bushizmus a uviedlo ju v poli „Výsledky vyhľadávania“. Zaškrtnutím vyberte webovú službu a kliknite na tlačidlo „Pridať“.
8. Vložte modul. Váš editor by teraz mal vyzerať takto:
9. Pridajte tento kód do svojho modulu, pokropte ho podľa potreby spracovaním chýb, spustite alebo zavolajte na makro GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismNastaviť BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, „Bushizmus“Koniec pod |
