Excel hat eine breite Palette von Anwendungen, und bei der Verwendung von VBA dann scheint es, dass wir in Excel alles tun können, was wir wollen. Natürlich können wir die Entfernung zwischen Orten finden In diesem Artikel zeige ich eine schnelle Anleitung zur Berechnung der Entfernung in Excel mit Google Maps mit klaren Schritten und klaren Illustrationen.

Download Arbeitsbuch Praxis

Sie können die kostenlose Excel-Arbeitsmappe hier herunterladen und selbständig üben.

Verwendung einer benutzerdefinierten Funktion zur Berechnung der Entfernung in Excel mit Google Maps

Hier, wir werden die Entfernung finden zwischen MacArthur Park und Jersey City mit Google Maps.

Zunächst müssen wir etwas Wichtiges wissen: Um die Entfernung in Excel mit Hilfe von Google Maps zu berechnen, benötigen wir eine API Schlüssel. API steht für Schnittstelle zur Anwendungsprogrammierung Excel verbindet sich mit Google Maps mit Hilfe eines API-Schlüssels, um die benötigten Daten zu sammeln. Einige Karten bieten kostenlose API-Schlüssel an, wie z. B. Bing Maps. Aber Google Maps bietet keine kostenlose API an. Auch wenn Sie eine kostenlose API verwalten, wird das nicht perfekt funktionieren. Sie müssen also die API kaufen. API Schlüssel von diesem Link.

Hier habe ich eine freie API Sie funktioniert nicht richtig, sondern dient nur als Beispiel. Wir verwenden VBA zur Erstellung einer benutzerdefinierte Funktion namens Berechnen_Entfernung zu die Entfernung finden Sie wird drei Argumente haben. Startplatz , Reiseziel und API-Schlüssel Beginnen wir nun mit den Verfahren.

Schritte:

• Presse ALT + F11 zum Öffnen des VBA-Fenster .

• Klicken Sie dann wie folgt: Einfügen> Modul um ein neues Modul zu erstellen.

• Geben Sie anschließend die folgenden Codes in das Fenster ein-

 Public Function Calculate_Distance(start As String, dest As String, Alink As String) As Double Dim first_Value As String, second_Value As String, last_Value As String Dim mitHTTP As Object first_Value = "//maps.googleapis.com/maps/api/distancematrix/json?origins=" second_Value = "&destinations=" last_Value = "&mode=car&language=pl&sensor=false&key=" & Alink Set mitHTTP =CreateObject("MSXML2.ServerXMLHTTP") Url = first_Value & Replace(start, " ", "+") & second_Value & Replace(dest, " ", "+") & last_Value mitHTTP.Open "GET", Url, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (kompatibel; MSIE 6.0; Windows NT 5.0)" mitHTTP.Send ("") If InStr(mitHTTP.ResponseText, """distance"" : {") = 0 Then GoTo ErrorHandl Set mit_reg =CreateObject("VBScript.RegExp"): mit_reg.Pattern = """Wert"".*?([0-9]+)": mit_reg.Global = False Set mit_matches = mit_reg.Execute(mitHTTP.ResponseText) tmp_Value = Replace(mit_matches(0).Submit_matches(0), ".", Application.International(xlListSeparator)) Calculate_Distance = CDbl(tmp_Value) Exit Function ErrorHandl: Calculate_Distance = -1 End Function 

• Dann nichts, gehen Sie einfach zurück zu Ihrem Blatt.

Code-Aufschlüsselung:

• Zunächst habe ich eine Public Function-Prozedur verwendet Berechnen_Entfernung .
• Dann deklarieren Sie einige Variablen first_Value, second_Value und last_Value für die Argumente unserer benutzerdefinierten Funktion.
• Legen Sie die Werte für die Variablen fest (jeder Wert ist selbstbeschreibend), und setzen Sie die mitHTTP Objekt in ServerXMLHTTP zur Nutzung der GET Methode (später verwendet, ermöglicht diese Objekteigenschaft die Verwendung der POST Methode auch).
• Url ist die Kombination aus allen zuvor eingestellten Werten, der Eigenschaft "offen" der Datei mitHTTP Objekt verwendet.
• Nach der Zuweisung der Werte übernimmt die Bibliotheksfunktion den Rest der Berechnung.

Wie Sie sehen, ist unsere Funktion jetzt einsatzbereit.

• Unter Zelle C8 geben Sie die folgende Formel ein.

• Zum Schluss drücken Sie einfach die EINGEBEN um die Entfernung zu ermitteln, die dann in der Tabelle angezeigt wird. Zählereinheit .

Lesen Sie mehr: Berechnung der Fahrstrecke zwischen zwei Adressen in Excel

Vor- und Nachteile bei der Entfernungsberechnung mit Google Maps

• Sie müssen über einen gültigen API-Schlüssel .
• Der obige Code ergibt die Ausgabe in der Datei Zählereinheit .
• Die benutzerdefinierte Funktion verwendet Ortsnamen direkt, ohne dass Koordinaten verwendet werden müssen.
• Vergewissern Sie sich, dass Sie einen gültigen Ort verwendet haben.

Vor- und Nachteile der Entfernungsberechnung mit Google Maps

Vorteile

• Für eine große Anzahl von Orten ist dies durchaus machbar, da wir die Füllen Griff um die Formel zu kopieren. Das ist nicht möglich in Google Maps
• Das ist ein ziemlich schneller Weg.
• Sie brauchen keine Koordinaten zu verwenden.

Benachteiligungen

• Es kann nicht mit Koordinaten arbeiten.
• Sie erhalten weder die Karte noch die Route, sondern nur die Entfernung.
• Mit der ungefähren Übereinstimmung der Ortsnamen wird es nicht funktionieren.

Schlussfolgerung

Ich hoffe, dass die oben beschriebenen Verfahren ausreichen, um die Entfernung in Excel mit Google Maps zu berechnen. Fragen können Sie gerne im Kommentarbereich stellen, und bitte geben Sie mir Feedback. ExcelWIKI um mehr zu erfahren.