Wie Entfernungen zwischen Postleitzahlen in VBA berechnen . ZIP ist eine Abkürzung für Zone Improvement Plan , ein Verweis auf die Idee, dass mit den fünfstelligen Zahlen würden die Effizienz bei der Bereitstellung von Mail im ganzen Land zu erhöhen steht . Es ist zweckmäßig, den Abstand zwischen zwei gegebenen ZIP -Codes für eine Vielzahl von Zwecken , einschließlich der Reiseplanung und Logistik finden. Oft wird Tabellenkalkulation enthalten Daten wie Reiserouten , die Postleitzahlen haben , so kann es sinnvoll sein , diese Strecken mit den mitgelieferten Postleitzahlen zu berechnen. Anleitung
1

Declare Variablen für die Postleitzahlen Sie wollen , um den Abstand zwischen indem Sie den folgenden Code in der Spitze der VBA -Programm zu finden :

Set zip1 = "12345"

Set zip2 = " 54321 "
2

Geben Sie den folgenden Code unter Ihrer Postleitzahl Werte Erklärung :

Set objHttp = CreateObject (" MSXML2.ServerXMLHTTP " )

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

objHTTP.Open "GET ", url , Falsch

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

objHTTP.send ("")
3

Drücken Sie F5 , um das Makro auszuführen und den Abstand zwischen den zwei Postleitzahlen .