Szukasz sposobu na integrację serwisu internetowego z VBA? Pobierz nieobsługiwany zestaw narzędzi Microsoft Office XP Web Services Toolkit 2.0 lub Microsoft Office 2003 Web Services Toolkit 2.01
Po zrobieniu tego sam, przejrzałem tę listę Xmethods w poszukiwaniu publicznej usługi sieciowej i znalazłem usługę sieciową Random Bushism. Teraz moim celem było stworzenie makra, które wyświetlałoby okno komunikatu z losowym „Bushism” za pomocą zestawu narzędzi Web Services.
Kilka uwag, jeśli chcesz sam spróbować…
1. Jeśli jeszcze tego nie zrobiłeś, zainstaluj Web Services Toolkit.
2. Otwórz Excela.
3. Otwórz Edytor Visual Basic (Alt + F11).
4. Kliknij nową opcję w menu Narzędzia - „Odniesienia do usług internetowych…”
5. W nowo otwartym Formularz zestawu narzędzi kliknij przycisk opcji „Web Service URL” i wprowadź ten adres: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Kliknij przycisk wyszukiwania.
7. Mam nadzieję, że znalazł serwis internetowy Bushism i umieścił go w polu „Wyniki wyszukiwania”. Umieść znacznik wyboru, aby wybrać usługę internetową i kliknij „Dodaj przycisk”.
8. Włóż moduł. Twój edytor powinien teraz wyglądać mniej więcej tak:
9. Dodaj ten kod do swojego modułu, w razie potrzeby posyp obsługę błędów, uruchom lub wywołaj makro GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismUstaw BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf i BushStruct.context, "Bushism"Napis końcowy |
