Вы ищете способ интеграции веб-службы с VBA? Загрузите неподдерживаемый Microsoft Office XP Web Services Toolkit 2.0 или Microsoft Office 2003 Web Services Toolkit 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 | Подпрограмма GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct как struct_RandomBushismУстановите BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context,, "Бушизм"Конец подписки |
