¿Está buscando una forma de integrar un servicio web con VBA? Descargue el kit de herramientas de servicios web de Microsoft Office XP 2.0 no compatible o el kit de herramientas de servicios web de Microsoft Office 2003 2.01
Después de hacerlo yo mismo, busqué en esta lista de Xmethods un servicio web público y encontré el Servicio web de Bushismo aleatorio. Ahora mi objetivo era crear una macro que mostrara un cuadro de mensaje con un "Bushismo" aleatorio, utilizando el Kit de herramientas de servicios web.
Algunas notas si quieres probarlo tú mismo …
1. Si aún no lo ha hecho, instale el kit de herramientas de servicios web.
2. Abra Excel.
3. Abra el Editor de Visual Basic (Alt + F11).
4. Haga clic en la nueva opción en el menú Herramientas - "Referencias de servicios web …"
5. En su recién inaugurado Formulario del kit de herramientas haga clic en el botón de opción "URL del servicio web" e ingrese esta dirección: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Haga clic en el botón de búsqueda.
7. Es de esperar que haya encontrado el servicio web Bushism y lo haya incluido en el cuadro "Resultados de la búsqueda". Coloque una marca de verificación para seleccionar el servicio web y haga clic en el "Botón Agregar".
8. Inserte un módulo. Su editor ahora debería verse así:
9. Agregue este código a su módulo, espolvoree con manejo de errores si lo desea, ejecute o llame a la macro GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom como nuevo clsws_RandomBushismServiceDim BushStruct como struct_RandomBushismEstablecer BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context ,, "Bushismo"End Sub |
