Les codes postaux sont un système numérique pour l'étiquetage des régions géographiques des États- Unis. ZIP est un acronyme qui signifie pour le plan d'amélioration de la Zone , une référence à l'idée que l'utilisation des cinq nombres à un chiffre augmenterait l'efficacité dans la distribution du courrier dans tout le pays . Il est utile de connaître la distance entre deux codes postaux indiqués pour une variété de raisons , y compris la planification des déplacements et la logistique. Souvent, les feuilles de calcul contient des données telles que des itinéraires de voyage , qui ont les codes postaux , de sorte qu'il peut être utile de calculer les distances en utilisant les codes postaux fournis. Instructions
1

déclarer des variables pour les codes postaux que vous voulez trouver la distance entre en tapant le code suivant dans le haut de votre programme VBA:

Set zip1 = "12345"

Set zip2 = " 54321 "
2

Tapez le code suivant dans votre code postal déclaration de valeurs :

Set objHTTP = CreateObject (" MSXML2.ServerXMLHTTP " )

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

objHTTP.Open "GET" , URL , Faux

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

objHTTP.send ("")

3

Appuyez sur F5 pour exécuter votre macro et retourner la distance entre les deux codes postaux .