Buscar Dados da Internet (Google Maps)

Olá Galera,

Na empresa que trabalho há muita dificuldade com despesa de viagens, por exemplo: Se o funcionário sair de São Paulo - SP para Campo Grande - MS estará viajando mais de 1.000 Km, significa que a passagem será muito cara. O que eu preciso saber é a distancia entre cidades e a rota entre elas. Há a possibilidade do Access conseguir buscar estas informações tipo do Google Maps?

Cumprimentos!

Bom dia Jeferson,

Tenho esse exemplo pego na net veja se atende.

http://www.google.com/search?hl=pt&as_q=&as_oq=Google+Maps&as_sitesearch=maximoaccess.forumeiros.com

Então galera legal, mas o que estou procurando seria no caso a distância entre uma cidade e outra e após fazer isso preciso que o Access registre os valores em uma tabela de distancias do meu BD conforme a distância do resultado que o Tio Google mostrar.

Boa tarde,
Function Distancia(Morada1 As String, Morada2 As String) As String
'código criado por Alexandre Neves, do Fórum MaximoAccess
'o código pode ser utilizado livremente, desde que mencionado este cabeçalho
Dim sXMLURL As String
sXMLURL = "http://maps.googleapis.com/maps/api/directions/xml?origin=" & Morada1 & "&destination=" & Morada2 & "&sensor=false"

Dim objXMLHTTP As MSXML2.ServerXMLHTTP
Set objXMLHTTP = New MSXML2.ServerXMLHTTP

With objXMLHTTP
.Open "GET", sXMLURL, False
.setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"
.Send
End With

Dim domResponse As DOMDocument60
Set domResponse = New DOMDocument60
domResponse.LoadXML objXMLHTTP.responseText
Dim ixnStatus
Set ixnStatus = domResponse.SelectSingleNode("//status")

If ixnStatus.Text = "OK" Then
Dim ixnDistance, ixnDuration
Set ixnDistance = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/distance/text")
Set ixnDuration = domResponse.SelectSingleNode("/DirectionsResponse/route/leg/duration/text")
Distancia = ixnDistance.Text
End If

Set domResponse = Nothing
Set objXMLHTTP = Nothing
End Function

Olá Alexandre, poderia me dizer onde eu colocaria o código acima?

Cumprimentos

Boa tarde,
Coloque junto onde introduz as localidades de deslocação