Etsitkö tapaa integroida verkkopalvelu VBA: han? Lataa tuettu Microsoft Office XP Web Services Toolkit 2.0 tai Microsoft Office 2003 Web Services Toolkit 2.01
Kun tein sen itse, selasin tätä Xmethods -luetteloa julkisesta verkkopalvelusta ja löysin Random Bushism Web Service -palvelun. Tavoitteeni oli nyt luoda verkkopalvelutyökalupaketin avulla makro, joka näyttäisi viestiruudun satunnaisella "bushismilla".
Muutamia muistiinpanoja, jos haluat kokeilla sitä itse …
1. Jos et ole jo tehnyt niin, asenna Web Services Toolkit.
2. Avaa Excel.
3. Avaa Visual Basic Editor (Alt + F11).
4. Napsauta Työkalut -valikon uutta vaihtoehtoa - ”Web Service References…”
5. Äskettäin avatussa Työkalupakki -lomake napsauta Web-palvelun URL-valintanappia ja kirjoita tämä osoite: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Napsauta hakupainiketta.
7. Toivottavasti se on löytänyt bushism -verkkopalvelun ja luetellut sen "Hakutulokset" -ruudussa. Valitse verkkopalvelu valitsemalla valintamerkki ja napsauta Lisää -painiketta.
8. Aseta moduuli paikalleen. Editorisi pitäisi nyt näyttää tältä:
9. Lisää tämä koodi moduuliin, ripottele halutessasi virheiden käsittelyyn, suorita tai soita GetRandomBushism -makrolle:
| 123456789101112 | Osa GetRandomBushism ()Dim BushRandom as New clsws_RandomBushismServiceDim BushStruct Kuten struktuuri_RandomBushismiAseta BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Bushism"End Sub |
