Planilhas Inteligentes (Distância entre Locais) - Google Map

Ola pessoal , preciso de ajuda. Inseri o modulo com o codigo VBA, criei a chave no google maps e continua dando resultado 0. Por que?

Bom dia! Utilizei essa formula com a Key do TomTom e ela funcionou perfeitamente por mais de 1 ano. Porém repentinamente parou de funcionar. Tentei, sem sucesso, utilizar outra key do TomTom, utilizar em uma máquina fora da rede habitual e nada fucnionou.

Alguém passou pelo mesmo problema e conseguiu resolver? Será que o google não está mais aceitando a key do tomtom?

Boa tarde, Professor!

Tentei fazer a busca através do CEP, conforme você havia comentado em um dúvida abaixo (fiz a busca da seguinte forma SAO PAULO, 04285-080), mas mesmo assim o resultado da busca da zero.

Pessoal, esse procedimento infelizmente é refém de APIs pagas que possuem limitantes de volume de consultas diárias, ou seja,se você fizer várias consultas de uma só vez não irá funcionar. Isso é feito para não sobrecarregar os servidores, a melhor forma que encontrei para trabalhar com distâncias de forma offline é atrás da latitude e longitude das localidades, no meu site Acadêmicos do Excel ensino como elaborar isso...Lembrando que esse método lhe fornecerá distâncias aproximadas...
http://academicosdoexcel.com.br/2017/10/01/distancia-entre-locais-latitude-e-longitude/

Podem me enviar por favor em wilsinhoamorim@hotmail.com por favor.

Alguém tem a planilha ou o código para enviar no e-mail?

HELP SILMAR

adelsonrepre2020@gmail.com

Oi pessoal,
Eu consegui a Key do TomTom, apliquei no código criado, mas continuo obtendo zero como resposta. Alguém tem alguma dica do que pode ser?

Pessoal, boa tarde.

Estou elaborando uma tabela de fretes, precisava de uma base com a distancias exemplo:

ORIGEM > DESTINO > KM

Não manjo muito de VBA, por acaso alguém tem uma base pronto para disponibilizar ou vender?

Grato.

Pessoal, boa tarde.

Estou elaborando uma tabela de fretes, precisava de uma base com a distancias exemplo:

ORIGEM > DESTINO > KM

Não manjo muito de VBA, por acaso alguém tem uma base pronto para disponibilizar ou vender?

Grato.

ola.. sou novo por aqui mas estou gostando muito ... enfim ... como eu faria pra fazer esse código pegar o tempo que levaria de um ponto ao outro também? alguém poderia me ajudar?

Boa noite a todos!
O código só funcionou depois que eu realizei o processo de cadastro de pagamento. Ao realizar esse processo aparece uma especie de tutorial para escolher qual API quer habilitar. Então, escolhi "Router" e habilitei. Então, funcionou!!
Se você não realizar o processo de cadastro para faturamento, não irá funcionar...

Olá bom dia, alguém que tenha conseguido poderia me enviar o planilha por email (keziammarques12@outlook.com)

Atenciosamente,

Boa tarde.
Não consigo sair do zero.
Alguém pode me auxiliar?

maatome@yahoo.com.br

Bom dia!!! Eu não consegui fazer essa planilha. Você conseguiu? POde me enviar o arquivo? Como faço para gerar a chave no google clou. p.carmo@moura-ba.com

Olá! Estou tendo dificuldades em fazer sair do "Zero". Poderia me enviar o exel pronto por e-mail por favor?
darlan_pcm@hotmail.com
obrigado!!!

Pessoal, estive ausente, não podendo responder devido a alguns problemas pessoais. Abaixo segue o código completo. LEMBREM DE AO COMPARTILHAR O CODIGO OU PLANILHA ONDE CONTEM A FUNÇÃO DE NÃO ENVIAR JUNTO A SUA CREDENCIAL, PORQUE O USO É BILHETADO E VOCÊ PODE ACABAR PAGANDO UM VALOR ALTO SE USAREM A FUNÇÃO.

Function Km_Distancia(Origin As String, Destination As String) As Double
'Requer referência ao: 'Microsoft XML, v6.0'

Dim Solicitacao As XMLHTTP60
Dim Doc As DOMDocument60
Dim Distancia_Pontos As IXMLDOMNode

Let Km_Distancia = 0

'Checa e limpa as entradas
On Error GoTo Sair

Let Origin = Replace(Origin, " ", "%20")
Let Destination = Replace(Destination, " ", "%20")

' Le os dados XML da API do Google Maps.
Set Solicitacao = New XMLHTTP60

chave_api = "COLOQUE AQUI A SUA CREDENDIAL GERADA NO CLOUD"
Solicitacao.Open "GET", "https://maps.googleapis.com/maps/api/directions/xml?origin=" _
& Origin & "&destination=" & Destination & "&sensor=false&key=" & chave_api, False

Solicitacao.send

' Tornando o XML legível por usar o XPath
Set Doc = New DOMDocument60

Doc.LoadXML Solicitacao.responseText

' Obtendo o valor da distância entre os nós.
Set Distancia_Pontos = Doc.SelectSingleNode("//leg/distance/value")
If Not Distancia_Pontos Is Nothing Then Km_Distancia = Distancia_Pontos.Text / 1000

Sair:
' Tidy up
Set Distancia_Pontos = Nothing
Set Doc = Nothing
Set Solicitacao = Nothing
End Function

Boa tarde Professor!

Poderia me enviar? Já realizei todas as modificações, porém o cálculo não demonstra nenhum resultado. alessandra.calado@outlook.com
Obrigada.

Boa tarde,
Como faço apra gerar esse código do "SEU CÓDIGO"?
se algué já tiver e puder compartilhar joaoricardocmc@hotmail.com

Após muitas tentativas, pedindo ajuda pra várias pessoas sem sucesso, consegui corrigir as expressões para que funcionasse o Key code.
Primeiramente, quando forem gerar a plataforma do Google Maps existem 3 produtos que podem ser escolhido: "Maps", "Routes" e "Places". Escolham "Routes", o qual está incluso o recurso "Directions" usado nó código VBA em questão.
Após gerado o KeyCode, é preciso fazer uma modificação no código VBA. Da seguinte forma:
CÓDIGO ERRADO
Solicitacao.Open "GET", "http://maps.googleapis.com/maps/api/directions/xml?origin=" _
& Origin & "&destination=" & Destination & "&sensor=false", False
CÓDIGO CORRETO
Solicitacao.Open "GET", "https://maps.googleapis.com/maps/api/directions/xml?origin=" _
& Origin & "&destination=" & Destination & "&sensor=false" & "&units=imperial" & "&key=SEU CÓDIGO", False

Lógico que onde diz "SEU CÓDIGO", você deve substituir pelo keycode gerado na Plataforma Google.
Fiquei desde ontem quebrando a cabeça, pra me dar conta que precisava trocar a URL "Http" por "Https" e só depois disso consegui fazer funcionar a aplicação.
Agora um desabafo.... eu não entendo por qual motivo uma pessoa descobre a solução e só compartilha por email conforme solicitação. Ainda envia o email pra uns e não responde o email de outros. A solução deveria ser publicada aqui ao invés disso.
O ser humano é vaidoso e gosta de levantar o troféu sozinho, essa é a verdade.
Espero que tenha ajudado vocês. Um abraço a todos.

Isso pouparia tempo de muita gente.

Bom dia Silmar, gentileza também compartilhar o código com a correção. Obrigado. joaopaulogb@outlook.com

Bom dia Silmar, poderia compartilhar o código com a correção comigo por favor?
foranges@gmail.com

Buenos dias soy Jhonny de Peru, tengo el mismo problema, me sale 0 al querer calcular, le agradeceria que me ayude con algun otro procedimiento o en que me podria estar equivocando, muchas gracias de antemano

Bom dia, Silmar.

Qualquer município que escolho para realizar a formula, me retorna "0", como eu insiro a nova Key na Função no VBA, poderia me ajudar? que outros procedimentos você fez?, meu e-mail: Luizishimoto@gmail.com

mago.marcus@hotmail.com

boa noite
fiz todo o procedimento porem a calculo da distancia fica sem 0 km

Bom dia! Alguém conseguiu incluir a KEY do API no código do VBA do módulo? Já tentei várias alternativas e só retorna zero. Por gentileza, se puder, enviar no meu email deolubefilho@brturbo.com.br. Grato!

Boa tarde, consegui ajustar a macro e estou utilizando foi preciso acessar o Google Cloud Platform e ativar as API, criar projeto, criar credencial e etc

Bom dia pessoal, tudo bem?
Estou tendo dificuldades em rodar a macro, alguem poderia compartilhar comigo o excel, por favor?
Ajudaria muito!!!

coloquei Curitiba e Recife, retorna 0. Não funcionou.

Amigos, bom dia. Notei que o código é super completo e permite a pesquisa até por nome de cidade. Entretanto, o que eu quero é algo bem simples: eu tenho uma planilha que uso no trabalho para calcular a distância entre a residência do aluno e a escola onde ele está matriculado. Não consegui adaptar o código fornecido pra isso. Li, em um comentário, também, a respeito de uma API grátis que a pessoa criou e permitiu que fizesse 2.500 consultas ao dia. Era basicamente isso que eu queria: usar o código na planilha que eu já montei e poder fazer, no máximo, essas 2500 consultas (a utilização da minha planilha não chega nem perto dessas 2500 consultas/dia; talvez atinja umas 300, no máximo). Alguém poderia me ajudar? zadir.junior@mpap.mp.br

Bom dia;

já uso está macro a algum tempo e agora atualizei o office para 2019 e não roda mais.

Poderia me auxiliar ?

Bom dia;

já uso está macro a algum tempo e agora atualizei o office para 2019 e não roda mais.

Poderia me auxiliar ?

Boa noite, estive usando sua macro o ano todo, mas tive que restaurar meu computador e instalei novamente o office 16 e agora não consigo fazer funcionar de jeito nenhum. Esta habilitado o 6.0 e modulo com exato texto mas fica sempre zerado agora. Pode me ajudar?

Sua planilha é muito interessante e útil, parabéns pelo trabalho. O único inconveniente é que ele entende que algumas cidades pertencem a outros estados, então o cálculo fica esquisito.

Boa tarde,

fiz tudo conforme a explicação, porem nao puxa a distancia.

Olá boa tarde! Quero programar uma planilha de calculo de frete, onde terá custo para tempo e quilômetro (parecido com a precificação da Uber), mas eu uso o Google Documentos, então é a Planilha do Google, existe essa mesma possibilidade nesse outro programa? Ou apenas em Excel?

Bom dia Professor!
Quando executo o VB aparece a mensagem: "Nome repetido encontrado: Km_Distancia"
Saberia do que se trata esse erro?

E como passar coordenadas geográficas ao invés do nome do município

Caro Prof. Carlos, boa tarde.

Segui o passo a passo, porém, a distância sempre aparece zerada na fórmula?
Estou utilizando a versão 171 (Office 365 ProPlus).

Obrigado!

Como fazer a consulta por CEP ao invés de nome da cidade?

Boa tarde meu amigo! Locais como Sao Gabriel da Cachoeira, Tabatinga, Barcelos, entre outros, não estão calculando. Sabe o que pode ter ocorrido?

Carlos, boa tarde!
Como eu faço para ter o Km entre cidades de países diferentes? Exemplo: distância de São Paulo a Nova York...
No aguardo.

Muito obrigado por compartilha a ferramenta, me ajudou bastante.
Porém foi preciso fazer uma atualização.... Foi necessário inserir no GET a variável key, gerada no Google APIs. Além disso alterei de HTTP para HTTPS. Depois dessas alterações funcionou muito bem, segue as linhas modificadas:

chave_api = "" 'Alterar caso pare de funcionar - Gerar no Google API
Solicitacao.Open "GET", "https://maps.googleapis.com/maps/api/directions/xml?origin=" _
& Origin & "&destination=" & Destination & "&sensor=false&key=" & chave_api, False

Carlos, Boa tarde!
Tô tentando calcular e não está retornando nada

Olá Carlos,

Sou iniciante no Excel.
Atualmente estou com a seguinte situação:
Num mapa preciso selecionar uma área com um determinado raio. Das cidades dentro dessa área preciso saber nome delas, sua população (Masc X Fem), localização (latitude X longitude), a distância dela até oponto de origem.
Até já vi um vídeo em que é gerado um mapa com base na Long X Lat X Pop este último em três cores dependendo da quantidade.
Você pode sugerir alguma solução?

Bom dia, Carlos!
Como faço para ter como output valores com 1 casa decimal? Algumas distâncias que estou pesquisando são menores que 1 kilometro e, por isso, aparecem zeradas. Desde já, obrigado pela atenção.

Caso possua uma API_Key do Google qual seria a API a ativar do google nesta consulta e como ficaria o código VBA com a inclusão da API_Key?

Bom dia Carlos! Muito obrigada pelo tutorial, ajudou muito!
Infelizmente tenho um grande número de dados dos quais preciso do resultado da fórmula (são 1012 combinações até agora). Consegui alguns resultados porém muitos foram zerados e quando tentei rodar novamente, zerou tudo (inclusive os que já tinham sido calculados). Vi que em um dos comentários você disse ter um algoritmo aproximado sem depender do Google. Pode compartilhar conosco? Muito obrigada!!!

Bom dia Carlos! Muito obrigada pelo tutorial, ajudou muito!
Infelizmente tenho um grande número de dados dos quais preciso do resultado da fórmula (são 1012 combinações até agora). Consegui alguns resultados porém muitos foram zerados e quando tentei rodar novamente, zerou tudo (inclusive os que já tinham sido calculados). Vi que em um dos comentários você disse ter um algoritmo aproximado sem depender do Google. Pode compartilhar conosco? Muito obrigada!!!

Carlos, boa tarde.
Acontece uma falha que não estou conseguindo resolver, algumas cidades não estão retornando o km e mostra como "0" (ex: Brasilia e Salvador), o poder ser, e como podemos resolver isso?
Obrigado.

Boa tarde

Carlos muito obrigado pela contribuição, assim como outro seguidor do tópico estou com a planilha exibindo os valores de km zerados já verifiquei em opções e o cálculo automático está habilitado, poderia me ajudar por favor?
Microsoft Excel 2010.

Prezado Carlos

É possivel, alem da distância entre 2 pontos utilizando o Google Maps no Excel, calcular tambem o tempo medio que leva para percorre-los?

Obrigado

Carlos, bom dia!
Muito obrigado pelo retorno, porém não consegui o problema com a sua recomendação.
Quando for possível não deixe de disponibilizar o outro método de cálculo pois certamente ajudará mtas pessoas.
Mais uma vez obrigado!

Carlos, Boa tarde!
Sou iniciante no assunto e segui o passo a passo obtendo os resultados esperados.
Porém ao abrir o arquivo novamente e efetuar novas consultas de Origem Destino o resultado da função Km_Distancia esta trazendo valores zerados.
Como posso corrigir esse problema?

A Fórmula (Função) é excepcional, me ajuda muito. Obrigado

A Unica dúvida e eu montei uma planilha e fixei todas as distancias,(colei valores) para que ao posicionar duas localidades me de a distancia da matriz, porem ta tendo divergências nas distancias que o Google informa, e possível acertar, pondo a distancia mas próxima como padrão?

Bom dia professor,
É possível pedir que a função retorne a menor distância exibida pelo google maps?

Bom dia, professor. é possível aparecer o google maps para o usuário determinar corretamente a rota, e após determinar a rota exportar as informações. Professor gostaria ver a possibilidade de marcarmos algumas aulas online. Abs