After doing so myself, I went browsing this Xmethods list for a public web service and found the Random Bushism Web Service. Now my goal was to create a Macro that would display a message box with a random “Bushism” in it, using the Web Services Toolkit.
Some notes if you would like to try it yourself…
1. If you haven’t done so already, install the Web Services Toolkit.
2. Open Excel.
3. Open the Visual Basic Editor(Alt + F11).
4. Click the new option on your Tools menu – “Web Service References…”
5. In your newly opened Toolkit Form click the “Web Service URL” radio button and enter this address: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Click the search button.
7. Hopefully it has found the Bushism web service and listed it in the “Search Results” box. Place a checkmark to select the web service and click the “Add Button”.
8. Insert a module. Your Editor should now look something like this:
9. Add this code to your module, sprinkle with error handling if desired, run or call the GetRandomBushism Macro:
Dim BushRandom As New clsws_RandomBushismService
Dim BushStruct As struct_RandomBushism
Set BushStruct = BushRandom.wsm_getRandomBushism
MsgBox BushStruct.bushism & vbCrLf & _
vbCrLf & BushStruct.context, , "Bushism"
VBA Coding Made Easy
Stop searching for VBA code online. Download our free add-in to quickly insert any of the sample code found on our site into the Visual Basic Editor.Free Download!
Did you find this VBA tutorial useful? Then share it with your friends and colleagues: