Office: Entfernungsberechnung mit Google Maps

Hi,

habe eine Kundenliste mit hunderten Adressen, und versuche die Entfernung zur Firma zu ermitteln. Ich habe dazu folgendes Makro gefunden und bringe es einfach nicht zum Laufen :

Public Function Entfernung _
( _
Start_Strasse As String, Start_Stadt_PLZ As String, _
Start_Bundesland As String, Start_Staat As String, _
Ziel_Bundesland As String, Ziel_Stadt_PLZ As String, _
Ziel_Bundesland As String, Ziel_Staat As String _
)

Dim surl As String
Dim oXH As Object
Dim bodytxt As String

surl = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & _
Replace(Start_Strasse, " ", "+") & "+" & Replace(Start_Stadt_PLZ, " ", "+") & "+" & _
Replace(Start_Bundesland, " ", "+") & "+" & Replace(Start_Staat, " ", "+") & _
"&destinations=" & _
Replace(Ziel_Strasse, " ", "+") & "+" & Replace(Ziel_Stadt_PLZ, " ", "+") & "+" & _
Replace(Ziel_Bundesland, " ", "+") & "+" & Replace(Ziel_Staat, " ", "+") & _
"&mode=driving&sensor=false&units=metric"

Set oXH = CreateObject("msxml2.xmlhttp")

With oXH
.Open "get", surl, False
.send
bodytxt = .responseText
End With

bodytxt = Right(bodytxt, Len(bodytxt) - InStr(1, bodytxt, "") - 5)
bodytxt = Right(bodytxt, Len(bodytxt) - InStr(1, bodytxt, "") - 6)
Entfernung = Left(bodytxt, InStr(1, bodytxt, "") - 1) / 1000

Set oXH = Nothing

End Function

Kann mir bitte jemand helfen?

Danke

:)

 

Hallo ???,

1.
Du solltest zum posten von Code die entsprechende Funktion nutzen, da sonst einige Sonderzeichen nicht dargestellt werden. Insbesondere bei Code der XML / HTML parsen soll ist dies sehr wichtig.

2.
Deine Funktionsdefinition enthält 2x die Variable "Ziel_Bundesland", und 0x die Variable "Ziel_Strasse". Da wundert es mich nicht das google maps da nix findet...
Dieser Fehler wäre nicht passiert wenn man Option explicit verwendet.

Viele Grüße,
Michael

 

Hallo Uderzo

Du hast zwar im Excelforum gepostet aber vlt. hilft Dir ja das weiter:

http://www.ms-office-forum.net/forum...d.php?t=315138

In dem Programm wird die Entfernung (Luftlinie) zwischen der Ausgangsadresse und mehreren Zieladressen ermittelt.

 

HI,

Code:

Bei hunderten Standorten..., wird dies wohl zu wenig sein.

vgl.
https://developers.google.com/maps/d...ematrix/?hl=de

und lese auch den ROT umrandeten Text der dort steht.. *Smilie