How to find the distance between two locations in excel using Google maps

In VBA, you will need to open an HTTP connection and parse its result.
It should be something like this:

1. HTMLService.Open “Get”, “http://maps.googleapis.com/maps/api/geocode/xml?address=1600%2C%20pensylvania%20avenue” 
2. Set oNodes = HTMLService.getElementsByTagName("formatted_address") 
3. If oNodes.Length = 1 Then strFormattedAddr = oNodes(0).Text 
4. Set oNodes = googleResult.getElementsByTagName("geometry") 
5. If oNodes.Length = 1 Then 
6. For Each oNode In oNodes 
7. strLatitude = oNode.ChildNodes(0).ChildNodes(0).Text 
8. strLongitude = oNode.ChildNodes(0).ChildNodes(1).Text 
9. Next oNode 
10. End If 
11. set oNodes=nothing 

EDIT: Just realised I gave only part of the solution. O cálculo real da distância é a seguinte fórmula.

Após ter as coordenadas (latitude e longitude) dos seus dois pontos, pode simplesmente aplicar a seguinte fórmula para calcular a distância como segue:
= 6378.135 * ACOS(COS(RADIANS(90-Lat1)) * COS(RADIANS(90-Lat2)) + SIN(RADIANS(90-Lat1)) * SIN(RADIANS(90-Lat2)) * COS(RADIANS(Long1-Long2)))