Office: (Office 2007) Entfernung (Strecke) zwischen zwei PLZs berechnen

Leider bringt mir das nicht viel, da hier die Luftlinien-Entfernung zwischen den Orten berechnet wird. Ich brauche aber eine Berechnung der Fahrtstrecke mit dem Auto...


Viele Grüße,
der gnom

 

so, nachdem ich nun versucht habe das FALK-Script zu automatisieren muss ich wohl diese Schiene aufgeben. Diese Methode funktioniert zwar für ein paar PLZs, aber knapp 1000 Datensätze lassen sich damit nicht berechnen. Zum Einen ist das ganze Verfahren (zumindest bei mir mit 20-25 Sek. pro Entfernungsberechnung) ziemlich langsam. Zum Anderen ist es leider nicht sehr verlässlich. Bei 35% - 50% nicht oder falsch berechneter Werte brauch ich garnicht erst anfangen...


Was mich jetzt natürlich zu diesem Thema interessieren würde:
Ich kann über das MSDNAA-Netz MS MapPoint kostenlos beziehen. Dort kann ich zwischen der 04er und 06er Version wählen, wobei bei der 06er Version nur Nordamerika-material dabei ist. Wer hat mit diesem Prog. schon Erfahrungen und kann mir sagen ob es sich lohnt, die 06er Version zu installieren und dann die deutschen Karten dazuzukaufen oder ob die 04er Version für mein Vorhaben ausreicht...


Viele Grüße,
der gnom

 

Hallo Anton,

hast du eine Idee, ob und wie ich das Land angeben kann?

IEDocument.getElementById("station[0].country").Value = "Dänemark"

wird nicht akzeptiert.
Wie könnte die zu beschickende Variable (hier ja ggf. ein DropDown-Feld) heißen und zu füllen sein?

Gruß Peter

 

Servus Peter,

das select-Feld bei Falk für das Land hat den Namen "station.country.isoCode". Ein solches Select-Feld wählst man i.d.R. mit der Methode "selected" aus. Also sollte diese Anweisung:

IEDocument.getElementById("station[0].country.isoCode").Selected = von_land

das Ausgangsland festlegen.

Problem daran ist allerdings, dass ich nicht weiß wie die Länder bei Falk codiert sind. Ich habs mal mit dem Standard ISO-CODE ( hier ) versucht aber das klappt leider nicht... Ich habe momentan auch leider nciht die Zeit den ganzen JS-Source von FALK zu durchforsten ob und wenn ja wo die Länder codiert werden...

Vielleicht weiß das ja jemand...

 

Hallo cybergnom,

danke erstmal für deinen Hinweis.
Auf der Basis werde (kann) ich weiter testen.

Gruß Peter

Nachtrag:

Mit IEDocument.getElementById("station[1].country.isoCode").Value = "DNK"
funktioniert es. Für Deutschland ist DEU zu verwenden - also der 3-stellige Länder-Code.

 

Hallo nochmal,

noch eine Variante(etwa 5sec pro Berechnung,aber wie verlässlich ist das Ganze?..):

Sub Entfernung()
Dim IEApp As Object
Dim IEDocument As Object
Dim strURL As String
von = InputBox("Geben Sie Start-PLZ ein.", "Start", "32791")
If von = "" Then Exit Sub
nach = InputBox("Geben Sie Ziel-PLZ ein.", "Ziel", "32756")
If nach = "" Then Exit Sub
starten = Timer
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "MSN Deutschland | News, Wetter, Sport & Hotmail Login"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do
Loop Until IEDocument.ReadyState <> 4
IEDocument.getElementById("RouteControl_StartZipText").Value = von
IEDocument.getElementById("RouteControl_EndZipText").Value = nach
IEDocument.all.RouteControl_AmbiguousButton.Click
Application.Wait (Now + TimeValue("0:00:03"))
Set iedoc = IEApp.Document
Do
Loop Until iedoc.ReadyState <> 4
Debug.Print iedoc.Body.innerText
strTeile = Split(iedoc.Body.innerText, vbCrLf)
For i = LBound(strTeile) To UBound(strTeile)
If InStr(1, strTeile(i), "Entfernung:", vbTextCompare) > 0 Then
AppActivate "Microsoft Excel"
MsgBox strTeile(i) & vbCr & (Timer - starten)
End If
Next
IEApp.Quit
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub


mfg Anton

 

Hallo Anton,

vielen vielen Dank für die Hilfe! Mit der neuen Variante hat es wunderbar funktioniert. Zwar wurden ca. 5% der Entfernungen nicht berechnet (was auch teilweise an falsch angegebenen PLZs lag) aber diese eben manuell nachzutragen war kein Problem!

Gedauert hat das Ganze für ca. 1000 Kunden ungefähr 2 1/2 Stunden... Also alles bestens!

Danke nochmal und viele Grüße,
der gnom

 

Hallo zusammen,

nun wollte ich mir Euer schönes Makro mal ansehen und leider bekomme ich es nicht zum Laufen. Option Explicit ist gesetzt bei mir und dann habe ich noch fehlende Variablen deklariert:

Dim Starten As Date
Dim von As Variant
Dim nach As Variant
Dim iedoc As Variant
Dim strTeile As String
Dim i As Integer

Nun hängt sich der Code auf bei :

For i = LBound(strTeile) To UBound(strTeile)

Meldung: Kompilierungsfehler - Erwartet: Datenfeld

Was tun?

 

Am Besten den Array "strTeile" auch als einen solchen deklarieren... *wink.gif*

 

Und warum machst du es nicht mit GoogleMaps? Da gibt es auch eine Beschreibung des APIs und wie man mit Querystring die URLs aufruft zur Routenplanung.

Dietrich

 

Danke sehr.

 

Hi Dietrich,

wie wäre es mit einem Beispiel?

cu, Bernd

 

vllt. nächste woche ;-), jetzt erst WE!!!

Aber: ich habe mal den Code von euch hier ausprobiert- funktioniert bspw. nicht, wenn PLZ mit 0 beginnt... ich teste noch bissel weiter.

Schönes WE-
Dietrich

 

'>' Neuer Versuch mit Google/Maps
'>' =============================
'>'
'>' Steuerelemente:
'>' CommandButton "cmdBerechnen"
'>' TextBox "txtErgebnis"
'>' TextBox "txtStart"
'>' TextBox "txtZiel"
'>'
'>' =============================
'>' Scheint zu funktionieren (toshni@web.de)

Private Sub Form_Load()
Me.Caption = App.EXEName
End Sub

Private Sub cmdBerechnen_Click()
Dim VON$, NACH$, ERGEBNIS$, I%, F%, URL$
Dim IE_App As Object, IE_Doc As Object

VON = PrepText(Me.txtStart): If VON = "" Then Exit Sub
NACH = PrepText(Me.txtZiel): If NACH = "" Then Exit Sub
Set IE_App = CreateObject("InternetExplorer.Application")
IE_App.Visible = False 'True
IE_App.Navigate "Google Maps" & VON & "&daddr=" & NACH & "&output=html"

Do: Loop Until IE_App.Busy = False
Do: Loop Until IE_App.ReadyState = 4
While IE_App.Busy: Wend
While IE_App.Document.ReadyState "complete": Wend

Set IE_Doc = IE_App.Document
strTeile = Split(IE_Doc.Body.innerText, vbCrLf)
For I = LBound(strTeile) To UBound(strTeile)
If InStr(1, strTeile(I), "Fahrt:", vbTextCompare) > 0 Then
ERGEBNIS = Trim(MyReplace(strTeile(I), "Fahrt:", ""))
F = InStr(ERGEBNIS, " km")
ERGEBNIS = MyReplace(ERGEBNIS, ",", ".")
ERGEBNIS = Left(ERGEBNIS, F - 1) + " km"
End If
Next
IE_App.Quit
Set IE_Doc = Nothing
Set IE_App = Nothing
If Val(ERGEBNIS) = 0 Then MsgBox "Überprüfen Sie Ihre Eingaben", vbOKOnly
txtErgebnis = ERGEBNIS
End Sub

Function PrepText$(ByVal Text$)
Text = Trim(Text)
Text = MyReplace(Text, " ", " ")
PrepText = MyReplace(Text, " ", "+")
End Function

Function MyReplace$(ByVal Text$, ByVal Such$, ByVal Erse$)
While InStr(Text, Such) > 0: Text = Replace(Text, Such, Erse): Wend
MyReplace = Text
End Function

 

Hallo,
habe mal die Routine ergänzt:
Code:

Allerdings, wenn ich Google benutze (da sind die Entfernungen wirklich genauer gegenüber msn, bei dem oftmals zu gleichen Eingaben verschiedene Werte berechnet werden) kriege ich immer beim .Quit einen Laufzeitfehler des IE, wo ich nicht weiß, wie er zu vermeiden ist.
Aufruf: entf = getDistance("Google",...)
oder Test im Direktfenster: Debug.Print getDistance(...)
Übrigens, wenn man Google.com verwendet, sollte man zwingend den Ortsnamen noch angeben.

Grüße-
Dietrich