Ar ieškote būdo integruoti žiniatinklio paslaugą su VBA? Atsisiųskite nepalaikomą „Microsoft Office XP Web Services Toolkit 2.0“ arba „Microsoft Office 2003 Web Services Toolkit 2.01“
Tai padaręs pats, aš naršiau šį „Xmethods“ sąrašą viešai žiniatinklio paslaugai ir radau atsitiktinio bušizmo žiniatinklio paslaugą. Dabar mano tikslas buvo naudojant „Web Services Toolkit“ sukurti makrokomandą, kurioje būtų rodomas pranešimų langelis su atsitiktiniu „bušizmu“.
Keletas pastabų, jei norėtumėte išbandyti patys …
1. Jei to dar nepadarėte, įdiekite „Web Services Toolkit“.
2. Atidarykite „Excel“.
3. Atidarykite „Visual Basic“ redaktorių (Alt + F11).
4. Meniu Įrankiai spustelėkite naują parinktį - „Žiniatinklio paslaugų nuorodos …“
5. Jūsų naujai atidarytame Įrankių rinkinio forma spustelėkite radijo mygtuką „Web Service URL“ ir įveskite šį adresą: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Spustelėkite paieškos mygtuką.
7. Tikimės, kad ji rado bušizmo žiniatinklio paslaugą ir išvardijo ją lauke „Paieškos rezultatai“. Norėdami pasirinkti žiniatinklio paslaugą, pažymėkite varnelę ir spustelėkite mygtuką „Pridėti“.
8. Įdėkite modulį. Dabar jūsų redaktorius turėtų atrodyti maždaug taip:
9. Pridėkite šį kodą prie savo modulio, pabarstykite klaidų tvarkymu, jei norite, paleiskite arba paskambinkite „GetRandomBushism Macro“:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct Kaip struktūru_RandomBushismNustatykite BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, „Bušizmas“Pabaiga Sub |
