Stai cercando un modo per integrare un servizio web con VBA? Scarica il Microsoft Office XP Web Services Toolkit 2.0 o il Microsoft Office 2003 Web Services Toolkit 2.01
Dopo averlo fatto io stesso, sono andato a sfogliare questo elenco di Xmethods per un servizio web pubblico e ho trovato il servizio web Random Bushism. Ora il mio obiettivo era creare una macro che visualizzasse una finestra di messaggio con un "Bushism" casuale, utilizzando il Web Services Toolkit.
Alcune note se volessi provarlo tu stesso…
1. Se non lo hai già fatto, installa il Web Services Toolkit.
2. Aprire Excel.
3. Aprire l'editor di Visual Basic (Alt + F11).
4. Fare clic sulla nuova opzione nel menu Strumenti - "Riferimenti ai servizi Web… "
5. Nella tua nuova apertura Modulo kit di strumenti fai clic sul pulsante di opzione "URL servizio Web" e inserisci questo indirizzo: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Fare clic sul pulsante di ricerca.
7. Si spera che abbia trovato il servizio web Bushism e lo abbia elencato nella casella "Risultati della ricerca". Metti un segno di spunta per selezionare il servizio web e fai clic sul pulsante "Aggiungi".
8. Inserire un modulo. Il tuo editor dovrebbe ora assomigliare a questo:
9. Aggiungi questo codice al tuo modulo, aggiungi la gestione degli errori se lo desideri, esegui o chiama la macro GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism()Dim BushCasuale come nuovo clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismImposta BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, , "Bushismo"Fine sottotitolo |
