Office: Routenplanung mit Google

Hallo,

mit der Referenz: http://www.clever-excel-forum.de/Thr...rechnen?page=9 Post #74

habe ich einen VBA-Code gefunden, den ich an meine Bedürfnisse und Tabellenstruktur angepasst habe. Das klappt auch soweit ganz gut.

Wenn ich mir dann aber die Liste der nicht gefundenen Routen anschaue, dann liegt es zum Teil an nicht korrekten Adressen.

Zum Teil sind es aber auch Adressen, die von Google.de/maps als richtig erkannt werden, aber von: maps.googleapis.com/maps/api/distancematrix/xml?origins= mit den Meldungen:

INVALID_REQUEST Invalid request. Invalid 'destinations' parameter. bzw.
INVALID_REQUEST Invalid request. Invalid 'origins' parameter.

je nach dem, ob die nicht erkannte Adresse als Start oder Ziel übermittelt wurde, zurückgewiesen wird.

Hiier ein Beispiel einer Adresse, die von Goggle Maps als korrekt erkannt wird, aber die Makroabfrage den genannten Fehlertext generiert.

64859 Eppertshausen, Röntgenstraße 2

Hier noch der komplette Makrocode:

Code:

Das besondere an diesem Code ist, dass bei jedem Durchlauf immer nur die Routenermittlung für die von/nach-Kombinationen durchgeführt wird, für die bisher noch keine Routenermittlung durchgeführt wurde.

Denn so kann, auf mehrere Tage aufgeteilt, für bspw. 100 (z.B. AD-Mitarbeiter) Ziele, zu denen ich alle von/nach-Kombinationen benötige, die gesamte Liste aufgebaut werden.

Aber die Frage ist, wer hat eine Erklärung für das unterschiedliche Verhalten und eventuell auch eine Idee, wie das Problem behoben werden kann.

:)

 

Hallo,

die genannte Referenz war insofern falsch, da der von mir als Basis verwendete Code unter #8 zu finden ist.

Aber eigentlich will ich nur mitteilen, dass ich das Problem lösen konnte. Mir war zwar aufgefallen, dass in der genannten Adresse ein Umlaut enthalten ist, aber ohne es zu prüfen, war ich mir sicher, dass in einigen der anderen Adressen, mit denen die Distanzberechnung einwandfrei funktionierte, auch Umlaute enthalten waren.

Aber in meinem Datenbestand von rund 130 Adressen sind tatsächlich nur 3 Adressen mit Umlauten oder "ß" enthalten. Und nur mit diese Adressen gab es Probleme bei der Verwendung der
maps.googleapis.com/maps/api/distancematrix
Durch Einbindung der Funktion

Code:

Konnte ich das Problem somit lösen.

Die Befüllung der Übergabeparameter habe ich dann von

Code:

In

Code:

geändert. Wobei ich es schon als genial empfinde, dass ich eine Funktion aufrufen und zugleich als Rückgabewert verwenden kann.

Das war mir neu. Aber nachdem ich mir die Funktion angeschaut hatte, hatte ich keine andere Möglichkeit des Aufrufs gesehen und es deshalb einfach einmal so versucht.

Da ich zwischenzeitlich auch einige andere offene Baustellen schließen konnte, bin ich mit meinem Hobbyprojekt "Tourenoptimierung" (Mehrere Ziele in optimaler Reihenfolge anfahren), erheblich weitergekommen.

 

Hallo,

da ja seit einiger Zeit die Google-Abfragen mit einem API-Key versehen sein müssen, um erfolgreich zu sein, funktioniert natürlich auch mein Makro nicht mehr.

Einen API-Key habe ich mir von Google auch schon generieren lassen.

Ich habe aber leider keine Ahnung, wie ich in die folgende Zeile um den API-KEY einfügen muss, damit die Abfrage wieder erfolgreich durchläuft.

objXML.Open "POST", "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & strOAddr & ",germany&&destinations=" & strDAddr & ",germany&&language=de-DE&sensor=false", False


Ich habe zwar schon einige Versuche unternommen, aber entwender war dann die Zeile syntaktisch falsch, oder ich bekam die Rückmeldung:

OVER_QUERY_LIMIT Keyless access to Google Maps Platform is deprecated. Please use an API key with all your API calls to avoid service interruption. For further details please refer to Account Changes  |  Google Maps Platform  |  Google Cloud

Wäre schön, wenn jemand weiß und bekannt geben kann, wie der API_KEY in die objXML.Open-Zeile eingefügt werden muss.

Ich könnte dann anschliessend auch zusätzlich zu dem Code eine Mustermappe hoer einstellen.