Come calcolare le distanze tra CAP in VBA

Codici di avviamento postale sono un sistema numerico per l'etichettatura regioni geografiche negli Stati Uniti . ZIP è un acronimo che sta per Piano di Miglioramento Zone, un riferimento all'idea che usando i cinque numeri di cifra aumenterebbe l'efficienza nella consegna della posta in tutto il paese . E 'utile per trovare la distanza tra due date Codici di avviamento postale per una varietà di scopi, tra cui la pianificazione di viaggio , e la logistica . Spesso, i fogli di calcolo conterrà i dati , come gli itinerari di viaggio , che hanno codici di avviamento postale , quindi potrebbe essere utile calcolare quelle distanze utilizzando i codici di avviamento postale in dotazione. Istruzioni
1

dichiarare le variabili per i codici di avviamento postale che si desidera trovare la distanza tra digitando il codice riportato di seguito nella parte superiore del vostro programma di VBA :

ZIP1 = "12345 " < br

Set> zip2 = " 54321 "
2

digitare il seguente codice sotto la vostra dichiarazione di valori di codice di avviamento postale :

objHTTP = CreateObject ( " MSXML2.ServerXMLHTTP " ) < br

URL > = " http://maps.google.com/maps/nav?output=js&oe=utf8&q=from : " & ZIP1 & " + a : " & zip2

objHTTP.Open "GET " , URL , False

objHTTP.setRequestHeader " User-Agent ", " Mozilla/4.0 ( compatible; MSIE 6.0; Windows NT 5.0) "

objHTTP.send ( " " )
3

Premere F5 per eseguire la macro e restituire la distanza tra i due codici di avviamento postale .