Leter du etter en måte å integrere en webtjeneste med VBA? Last ned Microsoft Office XP Web Services Toolkit 2.0 eller Microsoft Office 2003 Web Services Toolkit 2.01 som ikke støttes
Etter å ha gjort det selv, gikk jeg på denne Xmethods -listen for en offentlig webtjeneste og fant Random Bushism Web Service. Nå var målet mitt å lage en makro som skulle vise en meldingsboks med en tilfeldig “bushisme” i den, ved hjelp av Web Services Toolkit.
Noen notater hvis du vil prøve det selv …
1. Hvis du ikke allerede har gjort det, installerer du Web Services Toolkit.
2. Åpne Excel.
3. Åpne Visual Basic Editor (Alt + F11).
4. Klikk på det nye alternativet på Verktøy -menyen - "Webtjenestereferanser …"
5. I din nyåpnede Verktøysettskjema klikk på "Web Service URL" -knappen og skriv inn denne adressen: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Klikk på søkeknappen.
7. Forhåpentligvis har den funnet Bushism -webtjenesten og oppført den i "Søkeresultater" -boksen. Sett en hake for å velge webtjenesten og klikk på "Legg til -knappen".
8. Sett inn en modul. Redaktøren din bør nå se slik ut:
9. Legg til denne koden i modulen din, dryss eventuelt med feilhåndtering, kjør eller ring GetRandomBushism -makroen:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismSett BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Bushism"Slutt Sub |
