Função VBA - Busca Distância Entre Cidades
A função abaixo tem como objetivo buscar a distância entre duas cidades. No entrando, os comandos necessitam que a referência "Microsoft XML, v6.0" esteja ativada. Habilite a referencia acima e cole o código abaixo em um módulo VBA. Function Busca_Km(Origem As String, Destino 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 Busca_Km = 0 'Checa e limpa as entradas On Error GoTo Sair Let Origin = Replace(Origem, " ", "%20") Let Destination = Replace(Destino, " ", "%20") ' Le os dados XML da API do Google Maps. Set Solicitacao = New XMLHTTP60 Solicitacao.Open "GET", "http://maps.googleapis.com/maps/api/directions/xml?origin=" _ & Origin & "&destinatio...