Reinaldo pesquisando e lendo um pouco mais sobre como utilizarmos "XmlMaps", temos de criar os mapas em "xml" ou importa-los das Bibliotecas do App, neste link temos instruções de como utilizar esta propriedade - Como usar XML no Excel 2003 - http://office.microsoft.com/pt-br/excel ... 01964.aspx, tanto que, se você utiliza o Excel 2003 e no modelo que postei, for no Menu - Dados / XML / Codigo Fonte XML.. - aparecerá os mapas criados, então se apagar todos a rotina não funcionará.
Resumindo, esta questão deixei de lado, uma vez que não tem comoo jogar direto para o formulário, e parti para a Segunda, que seria o procurar resolver o porque que na Function busca_cep, em casa funciona e no serviço me da erro de "Timed Out", e pesquisando sobre este erro, encontrei varios que me ajudaram a resolver a questão, ou seja nesta Function eu alterei a instrução :
Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
por esta :
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
que eliminou o erro e está retornando os resultados corretamente.
Encontrei sobre o assunto tambem no site abaixo :
XML - Usando recursos de XMLHTTP com ASP e VB
http://www.macoratti.net/xml_vb3.htm
Agora vou continuar a adaptação com a rotina que verifica se está conectado ou não, e estudar um pouco mais sobre estes objetos.
Deixo o modelo em que a rotina que estava dando erro e agora funcionando, pelo menos no serviço, sem problemas, já com a implementação de ajustar os caracteres acentuados.
Buscar CEP e retornar para Textbox
Qualquer problema que encontrarem, favor reportarem aqui no forum.
Grato pela contribuição.
Obs : Como o Reinaldo postou, aquela instrução só retorna o resultado para um Range, e uma vez que resolvi a outra questão do erro que acontecia no serviço, vou deixar o Tópico como Resolvido.
Mas, se alguem tiver alguma outra sugestão, estamos abertos a troca de informações.
abraços
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/06/2013 7:05 pm