Тражите начин за интеграцију веб услуге са ВБА? Преузмите неподржани Мицрософт Оффице КСП Веб Сервицес Тоолкит 2.0 или Мицрософт Оффице 2003 Веб Сервицес Тоолкит 2.01
Након што сам то учинио, прегледао сам ову листу Ксметходс за једну јавну веб услугу и нашао Рандом Бусхисм Веб Сервице. Сада ми је циљ био да направим макро који би приказао оквир за поруке са насумичним „бушизмом“ у њему, користећи комплет алата за веб услуге.
Неколико напомена ако желите сами да пробате …
1. Ако то већ нисте учинили, инсталирајте Веб Сервицес Тоолкит.
2. Отворите Екцел.
3. Отворите Висуал Басиц Едитор (Алт + Ф11).
4. Кликните на нову опцију у менију Алатке - „Референце веб услуге…“
5. У вашем новоотвореном Образац комплета алата кликните радио дугме „УРЛ веб услуге“ и унесите ову адресу: хттп://грег.фрох.ца/фун/рандом-бусхисм/соап/?всдл
6. Притисните дугме за претрагу.
7. Надајмо се да је пронашао веб услугу Бусхисм и навео је у оквиру „Резултати претраге“. Поставите квачицу да бисте изабрали веб услугу и кликните на дугме „Додај дугме“.
8. Уметните модул. Ваш уредник би сада требао изгледати отприлике овако:
9. Додајте овај код свом модулу, поспите руковањем грешкама ако желите, покрените или позовите ГетРандомБусхисм Мацро:
| 123456789101112 | Суб ГетРандомБусхисм ()Дим БусхРандом Ас Нев цлсвс_РандомБусхисмСервицеДим БусхСтруцт Ас струцт_РандомБусхисмПостави БусхСтруцт = БусхРандом.всм_гетРандомБусхисмМсгБок БусхСтруцт.бусхисм & вбЦрЛф & _вбЦрЛф & БусхСтруцт.цонтект,, "Бушизам"Енд Суб |
