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. Il calcolo effettivo della distanza è la seguente formula.

Una volta che avete le coordinate (latitudine e longitudine) dei vostri due punti, potete semplicemente applicare la seguente formula per calcolare la distanza come segue:
= 6378.135 * ACOS(COS(RADIANS(90-Lat1)) * COS(RADIANTI(90-Lat2)) + SIN(RADIANTI(90-Lat1)) * SIN(RADIANTI(90-Lat2)) * COS(RADIANTI(Long1-Long2)))