Keresi a módját, hogy integrálja a webszolgáltatást a VBA -val? Töltse le a nem támogatott Microsoft Office XP Web Services Toolkit 2.0 vagy Microsoft Office 2003 Web Services Toolkit 2.01 verziót
Miután ezt megtettem, böngésztem ezt az Xmethods listát egy nyilvános webszolgáltatáshoz, és megtaláltam a Random Bushism Web Service -t. Most az volt a célom, hogy a Web Services Toolkit segítségével hozzon létre egy makrót, amely egy üzenetdobozt jelenít meg egy véletlenszerű „bushizmussal”.
Néhány megjegyzés, ha szeretnéd kipróbálni magad…
1. Ha még nem tette meg, telepítse a Web Services Toolkit programot.
2. Nyissa meg az Excel programot.
3. Nyissa meg a Visual Basic szerkesztőt (Alt + F11).
4. Kattintson az Eszközök menü új opciójára - „Webszolgáltatási hivatkozások…”
5. Az újonnan megnyitott Eszközkészlet űrlap kattintson a „Web Service URL” választógombra, és írja be ezt a címet: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Kattintson a keresés gombra.
7. Remélhetőleg megtalálta a bushizmus webszolgáltatást, és felsorolta a „Keresési eredmények” mezőbe. Jelölje be a pipa jelét a webszolgáltatás kiválasztásához, majd kattintson a „Hozzáadás gombra”.
8. Helyezzen be egy modult. A szerkesztőnek valahogy így kell kinéznie:
9. Adja hozzá ezt a kódot a moduljához, szórjon meg hibakezelést, ha szükséges, futtassa vagy hívja a GetRandomBushism makrót:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct Struktúra_RandomBushizmus névenÁllítsa be a BushStruct = BushRandom.wsm_getRandomBushism elemetMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context,, "Bushism"End Sub |
