Hledáte způsob, jak integrovat webovou službu s VBA? Stáhněte si nepodporovaný Microsoft Office XP Web Services Toolkit 2.0 nebo Microsoft Office 2003 Web Services Toolkit 2.01
Poté, co jsem to udělal, jsem procházel seznam Xmethods pro veřejnou webovou službu a našel jsem webovou službu Random Bushism. Mým cílem nyní bylo pomocí sady nástrojů Web Services Toolkit vytvořit makro, které by zobrazovalo okno se zprávou s náhodným „bušismem“.
Několik poznámek, pokud byste to chtěli sami vyzkoušet …
1. Pokud jste tak ještě neučinili, nainstalujte si sadu webových služeb.
2. Otevřete Excel.
3. Otevřete editor jazyka (Alt + F11).
4. Klikněte na novou možnost v nabídce Nástroje - „Reference webové služby …“
5. Ve vašem nově otevřeném Formulář sady nástrojů klikněte na přepínač „Webová adresa URL služby“ a zadejte tuto adresu: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Klikněte na tlačítko hledání.
7. Doufejme, že našel webovou službu bushismus a zařadil ji do pole „Výsledky vyhledávání“. Zaškrtnutím vyberte webovou službu a klikněte na tlačítko „Přidat“.
8. Vložte modul. Váš editor by nyní měl vypadat nějak takto:
9. Přidejte tento kód do svého modulu, podle potřeby posypte zpracováním chyb, spusťte nebo zavolejte makro GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismNastavit BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, „Bushismus“End Sub |
