Kas otsite võimalust veebiteenuse integreerimiseks VBA -ga? Laadige alla toetamata Microsoft Office XP veebiteenuste tööriistakomplekt 2.0 või Microsoft Office 2003 veebiteenuste tööriistakomplekt 2.01
Pärast seda, kui olin seda ise teinud, sirvisin avaliku veebiteenuse jaoks seda Xmethodsi loendit ja leidsin juhusliku bušismi veebiteenuse. Nüüd oli minu eesmärk luua veebiteenuste tööriistakomplekti abil makro, mis kuvaks sõnumikasti juhusliku “bušismiga”.
Mõned märkused, kui soovite seda ise proovida …
1. Kui te pole seda veel teinud, installige veebiteenuste tööriistakomplekt.
2. Avage Excel.
3. Avage Visual Basic Editor (Alt + F11).
4. Klõpsake menüü Tööriistad uut valikut - „Veebiteenuste viited…”
5. Oma äsja avatud Tööriistakomplekti vorm klõpsake raadionuppu „Veebiteenuse URL” ja sisestage see aadress: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Klõpsake otsingu nuppu.
7. Loodetavasti on ta leidnud bušismi veebiteenuse ja loetlenud selle kasti „Otsingutulemused”. Pange veebiteenuse valimiseks linnuke ja klõpsake nuppu „Lisa“.
8. Sisestage moodul. Teie toimetaja peaks nüüd välja nägema umbes selline:
9. Lisage see kood oma moodulile, piserdage soovi korral vigade käsitlemisega, käivitage või helistage GetRandomBushism Macro:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struktuur_RandomBushismMäära BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Bushism"End Sub |
