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 .