Bent u op zoek naar een manier om een webservice te integreren met VBA? Download de niet-ondersteunde Microsoft Office XP Web Services Toolkit 2.0 of Microsoft Office 2003 Web Services Toolkit 2.01
Nadat ik dit zelf had gedaan, bladerde ik door deze Xmethods-lijst voor een openbare webservice en vond de Random Bushism Web Service. Nu was mijn doel om een macro te maken die een berichtvenster zou weergeven met een willekeurig "Bushism" erin, met behulp van de Web Services Toolkit.
Enkele opmerkingen als u het zelf wilt proberen…
1. Installeer de Web Services Toolkit als u dit nog niet hebt gedaan.
2. Open Excel.
3. Open de Visual Basic-editor (Alt + F11).
4. Klik op de nieuwe optie in uw menu Extra - "Webservicereferenties…"
5. In je nieuw geopende Toolkit-formulier klik op het keuzerondje "Webservice-URL" en voer dit adres in: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Klik op de zoekknop.
7. Hopelijk heeft het de Bushism-webservice gevonden en vermeld in het vak "Zoekresultaten". Plaats een vinkje om de webservice te selecteren en klik op de knop "Toevoegen".
8. Plaats een module. Uw Editor zou er nu ongeveer zo uit moeten zien:
9. Voeg deze code toe aan je module, besprenkel met foutafhandeling indien gewenst, voer of bel de GetRandomBushism Macro:
| 123456789101112 | Sub GetRandomBushism()Dim BushRandom als nieuw clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismStel BushStruct = BushRandom.wsm_getRandomBushism inMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, , "Bushisme"Einde sub |
