Leder du efter en måde at integrere en webtjeneste med VBA? Download den ikke -understøttede Microsoft Office XP Web Services Toolkit 2.0 eller Microsoft Office 2003 Web Services Toolkit 2.01
Efter at have gjort det selv, søgte jeg denne Xmethods -liste efter en offentlig webtjeneste og fandt Random Bushism Web Service. Nu var mit mål at oprette en makro, der ville vise en meddelelsesboks med en tilfældig "Bushism" i den, ved hjælp af Web Services Toolkit.
Nogle noter, hvis du selv vil prøve det …
1. Hvis du ikke allerede har gjort det, skal du installere Web Services Toolkit.
2. Åbn Excel.
3. Åbn Visual Basic Editor (Alt + F11).
4. Klik på den nye mulighed i menuen Værktøjer - "Webtjenestehenvisninger …"
5. I din nyåbnede Toolkit -formular klik på radioknappen "Web Service URL", og indtast denne adresse: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Klik på knappen Søg.
7. Forhåbentlig har den fundet Bushism -webtjenesten og angivet den i feltet "Søgeresultater". Sæt et flueben for at vælge webtjenesten, og klik på "Tilføj knap".
8. Indsæt et modul. Din redaktør skal nu se sådan ud:
9. Tilføj denne kode til dit modul, drys eventuelt med fejlhåndtering, kør eller ring til GetRandomBushism -makroen:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct Som struct_RandomBushismIndstil BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Bushism"Afslut Sub |
