Letar du efter ett sätt att integrera en webbtjänst med VBA? Ladda ner Microsoft Office XP Web Services Toolkit 2.0 eller Microsoft Office 2003 Web Services Toolkit 2.01 som inte stöds
Efter att ha gjort det själv gick jag och tittade på denna Xmethods -lista för en offentlig webbtjänst och hittade Random Bushism Web Service. Nu var mitt mål att skapa ett makro som skulle visa en meddelanderuta med en slumpmässig ”Bushism” i den, med hjälp av Web Services Toolkit.
Några anteckningar om du vill prova själv …
1. Om du inte redan har gjort det installerar du Web Services Toolkit.
2. Öppna Excel.
3. Öppna Visual Basic Editor (Alt + F11).
4. Klicka på det nya alternativet på menyn Verktyg - "Webbtjänstreferenser …"
5. I din nyöppnade Toolkit -formulär klicka på alternativknappen “Web Service URL” och ange den här adressen: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Klicka på sökknappen.
7. Förhoppningsvis har den hittat Bushism -webbtjänsten och listat den i rutan "Sökresultat". Sätt en bock för att välja webbtjänsten och klicka på "Lägg till -knappen".
8. Sätt i en modul. Din redaktör ska nu se ut ungefär så här:
9. Lägg till den här koden i din modul, strö över felhantering om så önskas, kör eller ring GetRandomBushism Makro:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismAnge BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Bushism"Avsluta Sub |
