Veja no anexo uma rotina disponibilizada no Grupo ExcelBr, pelo colega ALeXceL, que "pesquisa" no google maps

Grande Rei,

Obrigado por servir de ponte com esse arquivo. Excelente!!

Reinaldo, exelente o modelo, só podia ser do Mestre ALeXceL.

No Forum abaixo tem alguns exemplos, com formula e VBA, com formula teremos de ter uma tabelaa e vba pesquisa na NET, mas é entre o Reino Unido, mas se tivermos um site que tenha a distancia entre os códigos postais dos bairros, acredito ser somente uma questão de adaptação:

OBS, tem de se cadastrar para participar do Forum :
FONTE : http://www.thecodecage.com/forumz/pt/

VBA para calcular a distância entre o Reino Unido códigos postais
http://www.thecodecage.com/forumz/pt/mi ... gente.html

Find distance between two postcodes
http://www.thecodecage.com/forumz/pt/mi ... codes.html

[]s

Boa noite senhores,

um grande obrigado aos mestres Reinaldo e Mauro, adorei o form Reinaldo, estou estudando para adaptar ao meu projeto, mestre Mauro, como trabalho com nomes de bairros, teria um trabalho gigantesco para reorganizar tudo com cep mas agradeço mais uma vez a dedicaçao, continuo te devendo aquela cortesia.

Se nao tem problema, deixarei este post aberto no caso precise de mais alguma orientaçao.

Bom dia senhores,

Adaptando o exemplo postado pelo Reinaldo, acabei encontrando um probleminha e preciso tambem de uma ajuda.

No frmCadastroServiçosConvenio, no botão mapa, coloquei o formulario que busca os endereços no google mapas, so que esta dando um erro que não consegui entender, erro de compilação, se puderem me ajudar agradeço.
A segunda questão é ao abrir o formulario gostaria que o primeiro controle onde coloco o endereço ja preenchesse com o endereço que esta digitado no comando txtenderecocoleta.

Meu muito obrigado.

Uma pergunta senhores mestres, e se ao inves de manter o formulario de busca eu usasse os proprios comandos do frmcadastroservicosconvenio, aqueles de endereço de coleta e endereço de entrega para fazer a busca, so acrescentaria um comando a mais para receber a kilometragem que e o que mais me importa?

Fabio Pradella

Fabio,
Para a primeira duvida:
creio que o erro que está recebendo é "tipo não definido pelo usuario".
Para isso vc precisa habilitar em referencias (menu superior do vb --> Ferramentas -->Referencias) as seguintes:
Microsoft Internet Controls e Microsoft HTML object library (vide ref.img)
Para a segunda duvida:
Crie um initialize para o form(veja abaixo);assim ao abrir o outro formo campo vira com o valor/texto:

Private Sub UserForm_Initialize()
Me.tbPartida.Text = frmCadastroServiçosConvenio.TxtEnderecoColeta.Text
End Sub

Qto a terceira, não entendi a pergunta, porem o form pesquisa "serve" básicamente para
passar os endereços de partida e chegada à rotina "fnPesquisarDistânciasETemposNoGoogleMaps" e receber o mapa e roteiro com distancia e tipo percurso;

Então (pelo menos em teoria)vc pode "passar" os endereços diretamente do seu form, e receber nele mesmo a distancia

Grande Reinaldo, tem me ajudado um monte, hehe, obrigado mesmo.

Reinaldo, li uma vez de um de vcs que no vba nada e impossivel, basta pesquisar, entao se bem entendi, como diz vc teoricamente posso usar os controles do meu proprio formulario para fazer a busca e dar somente a kilometragem, é exatamente o que vc entendeu.

Vou fazer o que voce indicou e dou um retorno.

Um grande abraço.

Reinaldo, ate aqui tudo beleza, mas para trazer agora a Km que aparece no formulario de pesquisa para um controle dentro do meu form de origem?

Seria mais ou menos isto daqui:

Me.TxtKm.Text = frmPesquisarGoogleMaps.TextBoxKm.Text, mas em que tipo de sub???

Se nao for nada disto perdoe a minha ignorancia.

Obrigado

Pode ser (por lexemplo) no final da rotina "fnPesquisarDistânciasETemposNoGoogleMaps" (seu modulo 4)
acrescente:
lblSair:
frmCadastroServiçosConvenio.TxtKm.Text = strKm
Exit Sub

Boa tarde Reinaldo, obrigado por mais esta, acabou que vc me ajudou do indicar o form e adaptalo, valeu mesmo.

Gostaria de aproveitar a tua atençao para pedir ajuda para um problema que estou tendo,
este projeto criei nesta maquina que estou escrevendo agora para vc, mas fiz algumas alteraçoes no projeto no micro da empresa, ai agora, quando chego nesta maquina ele nao abre mais, ja no outro de casa abre, na empresa tambem, e so esta maquina que nao, me da a seguinte menssagem...

A biblioteca de objetos e invalida ou contem referencias a definições de objetos que não puderam ser localizadas.

Repito, so nesta maquina, nas outras ele abre sem problemas e esta foi a que eu criei o projeto.

Fabio,
Aparentemente nesse equipamento está faltando ou esta danificada, uma das bibliotecas (ocx,dll), aquelas selecionadas em ferramentas -->Referencias.
Tente o seguinte: abra o arquivo sem habilitar macros; abra o projeto vbe e veja em referencias se uma das bibliotecas selecionadas aparece com "Ausente" na frente. Se tiver verifique o caminho da mesma reinstale (ou instale uma nova copia).
Caso contrário , ficará mais dificil, vai ter que garimpar.
Abra o arquivo, habilite as macros (mas se tiver alguma rotina que rode no open, desabilite-as antes) e vá no editor vbe Menu superior -->Depurar --> Compilar VBAproject; onde houver erros ou expressõs ou comando indevido, ira "parar" na linha e emitir uma mensagem de erro, assim vai um por um tentando localizar qual a rotina/declaração que gera o erro "fatal".

Reinaldo, nao deu certo nenhuma das duas coisas, nao aparece nada ausente, e mesmo quando tento garimpar, ele ja para no option explicti do primeiro form, mas mesmo tentando arrumar alguma coisa ( tentei deletar o multipaginas porque tenho quase certeza que as ultimas alteraçoes eu fiz ali ) eu nao permite, na hora de sair e salvar ele diz que nao e possivel salvar, deixa pra la

Gostaria muito de te agradecer pois todas as rotinas que vc me indicou e o formgoogle deram certo e alcancei o meu objetivo, vou tentar fazer o que tinha te falado, vou tentar adaptar no proprio form de cadastro das corridas, assim se conseguir, posto aqui para vc ver como ficou, pode servir para mais alguem.

Um grande abraço.

Fabio Pradella

Bom dia Reinaldo,

Entao, estamos usando a seguinte rotina para ja preencher alguns comandos ao abrir o form,

Me.tbPartida.Text = frmCadastroServiçosConvenio.TxtEnderecoColeta.Text

Tem como adicionar um segundo comando nesta rotina?

Me.tbPartida.Text = frmCadastroServiçosConvenio.TxtEnderecoColeta.Text + txtNColeta

Como sempre, em principio é possivel, ou seja o campo tbpartida ira receber o "valor" do ...txtEnde.. + txtNcoleta (sendo os 2 texto sera feita uma concatenação de ambos)
Quero crer que txtNColeta seja o numero do local, então é necessario seguir os parametros que o googlemaps requer/espera;
não tenho muita certeza mas creio que deva ser: Endereço + ", " (virgula e espaço)+ numero procurado