Cómo calcular distancias entre los códigos postales en VBA

códigos postales son un sistema numérico para etiquetar regiones geográficas en los Estados Unidos. ZIP es un acrónimo que significa para el Plan de Mejora de la Zona , una referencia a la idea de que el uso de los números de cinco dígitos, aumentaría la eficiencia en la entrega de correo en todo el país . Es útil para encontrar la distancia entre dos códigos postales dadas para una variedad de propósitos , incluida la planificación de viajes , y la logística . A menudo, las hojas de cálculo se incluyen datos como itinerarios de viaje , que tienen códigos postales , por lo que pueden ser útiles para calcular las distancias con los códigos postales prestados. Instrucciones
1

Declare las variables de los códigos postales que desea encontrar la distancia entre escribiendo el siguiente código en la parte superior de su programa VBA :

Set ZIP1 = "12345 "

Set Zip2 = " 54321 "
2

Escriba el código siguiente en el código de declaración de valores zip :

Set objHTTP = CreateObject ( " MSXML2.ServerXMLHTTP ")

URL = " http://maps.google.com/maps/nav?output=js&oe=utf8&q=from :" & ZIP1 y "+ 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

Presione F5 para ejecutar la macro y volver la distancia entre los dos códigos postales .