Você está procurando uma maneira de integrar um serviço da Web ao VBA? Baixe o Microsoft Office XP Web Services Toolkit 2.0 ou o Microsoft Office 2003 Web Services Toolkit 2.01 sem suporte
Depois de fazer isso sozinho, naveguei nesta lista de Xmethods para um serviço público da web e encontrei o Random Bushism Web Service. Agora, meu objetivo era criar uma macro que exibisse uma caixa de mensagem com um “Bushismo” aleatório, usando o Web Services Toolkit.
Algumas notas, se você quiser experimentar …
1. Se ainda não o fez, instale o Web Services Toolkit.
2. Abra o Excel.
3. Abra o Editor do Visual Basic (Alt + F11).
4. Clique na nova opção no menu Ferramentas - “Referências de serviço da Web…”
5. Em seu recém-inaugurado Formulário do kit de ferramentas clique no botão de opção “URL do serviço da Web” e insira este endereço: http://greg.froh.ca/fun/random-bushism/soap/?wsdl
6. Clique no botão de pesquisa.
7. Esperançosamente, ele encontrou o serviço da web do Bushism e o listou na caixa “Resultados da Pesquisa”. Coloque uma marca de seleção para selecionar o serviço da web e clique no “Botão Adicionar”.
8. Insira um módulo. Seu editor agora deve ser parecido com isto:
9. Adicione este código ao seu módulo, polvilhe com tratamento de erros se desejar, execute ou chame a Macro GetRandomBushism:
| 123456789101112 | Sub GetRandomBushism ()Dim BushRandom As New clsws_RandomBushismServiceDim BushStruct As struct_RandomBushismDefina BushStruct = BushRandom.wsm_getRandomBushismMsgBox BushStruct.bushism & vbCrLf & _vbCrLf & BushStruct.context, "Bushism"End Sub |
