códigos postais são um sistema numérico para a rotulagem regiões geográficas nos Estados Unidos . ZIP é um acrônimo que significa para a Zona Plano de Melhoria , uma referência à idéia de que o uso dos cinco algarismos aumentaria a eficiência na entrega de correio em todo o país . Ele é útil para saber a distância entre dois CEPs dadas para uma variedade de propósitos, incluindo planejamento de viagens e logística. Muitas vezes, planilhas irá conter dados como roteiros de viagem , que têm códigos postais , por isso pode ser útil para calcular essas distâncias utilizando os códigos postais prestados. Instruções
1

Declare variáveis ​​para os códigos postais que você deseja encontrar a distância entre digitando o seguinte código na parte superior do seu programa VBA:

Definir ZIP1 = " 12345"

Set Zip2 = " 54321 "
2

Digite o seguinte código em seu zip valores de código de declaração :

Set objHttp = CreateObject (" MSXML2.ServerXMLHTTP " )

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

objHTTP.Open "GET" , URL , False

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

objHTTP.send ("")
3

Pressione F5 para executar a macro e voltar a distância entre os dois códigos postais .