Ви шукаєте спосіб інтеграції веб -служби з VBA? Завантажте непідтримуваний набір інструментів веб -служб Microsoft Office XP 2.0 або набір інструментів веб -служб Microsoft Office 2003 2.01
Зробивши це сам, я переглянув цей список Xmethods для загальнодоступної веб -служби і знайшов веб -службу Random Bushism. Тепер моєю метою було створити макрос, який би відображав вікно повідомлень із випадковим «бушізмом» у ньому, використовуючи набір інструментів веб -служб.
Кілька приміток, якщо ви хотіли б спробувати самі …
1. Якщо ви цього ще не зробили, встановіть Набір інструментів веб -служб.
2. Відкрийте програму Excel.
3. Відкрийте редактор Visual Basic (Alt + F11).
4. Натисніть нову опцію в меню "Інструменти" - "Посилання на веб -служби…"
5. У вашому нещодавно відкритому Форма інструментарію натисніть перемикач «URL веб-служби» та введіть цю адресу: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Натисніть кнопку пошуку.
7. Сподіваємось, що він знайшов веб -службу Bushism і вказав його у полі «Результати пошуку». Поставте прапорець, щоб вибрати веб -службу, і натисніть «Додати кнопку».
8. Вставте модуль. Тепер ваш редактор має виглядати приблизно так:
9. Додайте цей код до свого модуля, при бажанні посипте обробкою помилок, запустіть або зателефонуйте до макросу GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismВстановіть BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context,, "Бушізм"End Sub |
