Vai meklējat veidu, kā integrēt tīmekļa pakalpojumu ar VBA? Lejupielādējiet neatbalstīto Microsoft Office XP Web Services Toolkit 2.0 vai Microsoft Office 2003 Web Services Toolkit 2.01
Pēc tam, kad to izdarīju pats, es pārlūkoju šo Xmethods sarakstu publiskam tīmekļa pakalpojumam un atradu nejaušā bušisma tīmekļa pakalpojumu. Tagad mans mērķis bija izveidot makro, kurā tiktu parādīts ziņojumu lodziņš ar nejaušu bušismu, izmantojot tīmekļa pakalpojumu rīkkopu.
Dažas piezīmes, ja vēlaties to izmēģināt pats …
1. Ja vēl neesat to izdarījis, instalējiet Web Services Toolkit.
2. Atveriet programmu Excel.
3. Atveriet Visual Basic redaktoru (Alt + F11).
4. Izvēlnē Rīki noklikšķiniet uz jaunās opcijas - “Web pakalpojumu atsauces…”.
5. Jūsu jaunatvērtajā Rīku komplekta veidlapa noklikšķiniet uz radio pogas “Web pakalpojuma URL” un ievadiet šo adresi: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Noklikšķiniet uz meklēšanas pogas.
7. Cerams, ka tas ir atradis bušisma tīmekļa pakalpojumu un uzskaitījis to lodziņā “Meklēšanas rezultāti”. Ievietojiet atzīmi, lai atlasītu tīmekļa pakalpojumu, un noklikšķiniet uz pogas “Pievienot”.
8. Ievietojiet moduli. Tagad jūsu redaktoram vajadzētu izskatīties apmēram šādi:
9. Pievienojiet šo kodu savam modulim, apkaisiet ar kļūdu apstrādi, ja vēlaties, palaidiet vai izsauciet GetRandomBushism makro:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct Kā structure_RandomBushismIestatiet BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Bušisms"Beigu apakš |
