Търсите ли начин да интегрирате уеб услуга с VBA? Изтеглете неподдържания Microsoft Office XP Web Services Toolkit 2.0 или Microsoft Office 2003 Web Services Toolkit 2.01
След като сам го направих, отидох да разгледам този списък с Xmethods за публична уеб услуга и намерих Службата за случаен бушизъм. Сега целта ми беше да създам макрос, който да показва поле за съобщения със случаен „бушизъм“ в него, използвайки инструментариума за уеб услуги.
Няколко бележки, ако искате да опитате сами …
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 |
