Căutați o modalitate de a integra un serviciu web cu VBA? Descărcați Microsoft Office XP Web Services Toolkit 2.0 sau Microsoft Office 2003 Web Services Toolkit 2.01 neacceptat
După ce am făcut-o eu însumi, am căutat această listă Xmethods pentru un serviciu web public și am găsit Random Bushism Web Service. Acum, scopul meu era să creez un Macro care să afișeze o casetă de mesaj cu un „Bushism” aleatoriu, folosind Setul de instrumente pentru servicii web.
Câteva note dacă doriți să încercați singur …
1. Dacă nu ați făcut deja acest lucru, instalați setul de instrumente pentru servicii web.
2. Deschideți Excel.
3. Deschideți Editorul Visual Basic (Alt + F11).
4. Faceți clic pe noua opțiune din meniul Instrumente - „Referințe servicii web …”
5. În noua ta deschidere Formular de set de instrumente faceți clic pe butonul radio „Web Service URL” și introduceți această adresă: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Faceți clic pe butonul de căutare.
7. Sperăm că a găsit serviciul web Bushism și l-a listat în caseta „Rezultate căutare”. Bifați o bifă pentru a selecta serviciul web și faceți clic pe „Butonul Adăugare”.
8. Introduceți un modul. Editorul dvs. ar trebui să arate acum așa:
9. Adăugați acest cod la modulul dvs., presărați cu gestionarea erorilor, dacă doriți, rulați sau apelați GetRandomBushism Macro:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom ca nou clsws_RandomBushismServiceDim BushStruct Ca struct_RandomBushismSetați BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context ,, „Bushism”Sfârșitul Sub |
