Office: Routenplaner mit VBA?

Zuvorkommen will ich dir nicht, aber doch ein Codeschnipsel anbieten, damit der Rest leichter fällt: *wink.gif*

Statt AnalyzeHTML dann (oder zusätzlich) AnalyzeXMLFile einsetzen:

Code:

Ciao, Sascha

 

gelöscht!
Man sollte immer die Augen zweimal aufmachen!! *wink.gif*
Alles gefunden!
Danke, damit bin ich auch diese blöde WebBrowser-Problem mit dem Skriptfehler los!

Gruß

LL

 

Klasse Teil. Vielleicht kannst du die aktuelle Version dann auch hochladen??

 

Hallo,

anbei eine überarbeitete "Arbeitsversion"!
Die Umsetzung für KML wurde in "frm_GetRoute_KML" realisiert.
In "frm_GetRoute4" werden beide Varianten per Auswahlbox unterstützt.
Weiterhin wird hier z.T. auf Änderungsereignisse im WebControl reagiert (z.B. Routenänderung im WebControl).

Wie bereits gesagt, es handelt sich um eine Arbeitsversion (also stört euch nicht an überflüssigen oder falschen Code)!
Fehler gibt es hier sicherlich noch hin und wieder und es ist auch bei weitem noch nicht so wie ich es mir vorstelle (quickn'dirty*Smilie)
Ich würde mich auch freuen wenn mehr Leute sich hier beteiligen würden.
Vielleicht kann man ja auch einen kleinen Workshop daraus machen. *wink.gif*

Viel Spaß damit!

Gruß

LL

 

Kannst du vielleicht noch ein Startformular einbinden? Leider hab ich im Moment nur eine Runtime zur Verfügung*frown.gif*

 

Hallo,

klar, allerdings jetzt auch als "mde".*tongue.gif*
Die Grundzüge sind in den MDB's.
Dieses Beispiel sollte voll funktionsfähig sein.
Mei mehrfachem Vorkommen eines Ortes oder wenn der Ort nicht eindeutig gefunden werden kann (z.B falsch geschrieben) kommt ein Auswahlformular hoch. Mit Doppelklick kann der gewünschte Ort übernommen werden.
Bei Doppelklick in den Routendetails werden die Ortskoordinaten in einer MessageBox ausgegeben.
Meine Entwicklungen mache ich jetzt mal für mich allein, sollte Interesse vorhanden sein meldet euch hier!

Gruß

LL

Update:
Ich verwende jetzt nur noch die "KML" Version! Das XML-Handling überzeugt hier!
Code:

 

funtioniert ganz wunderbar, danke.
Aber was hat es mit dem Formular frm_GetRoute4 auf sich?
Die Webseite wird geladen und dann gibt es bei mir eine Endlosschleife und die Webseite verschwindet wieder.

 

Hallo,

das Formular wollte ich eigentlich rausnehmen, da die Änderungen hier noch nicht abgeschlossen sind.*entsetzt
Das Formular sollte in der alten MDB-Version allerdings funktionieren!
Ich nehm das Form nochmal raus und stell dieses mit einer eigenen DB später nochmal rein.
In der MDE wurde konsequent mit XML-Auswertung gearbeitet. Im "form4" geht das nicht, da hier Interaktion vom WebControl gefordert ist. Leider habe ich noch das Problem die Frames zu lokalisieren und diese "frei" zu stellen.
Ich würde mir nur das Karten-Frame wünschen!*rolleyes.gif*
Vielleicht hat ja jemand eine Idee?

Gruß

LL

 

So jetzt mal wieder einen Nachschlag! *wink.gif*
Irgendwann werde ich doch wohl das Interesse hier wecken können.
Solange ich kein Feedback bekomme gibts auch nur MDE's!*tongue.gif*

Im Anhang noch eine Erweiterung für alle Urlauber in Deutschland!
Zu jedem Routenpunkt können nun alle im Umkreis von 50Km befindlichen Tankstellen inkl. Preise ermittelt werden.
Das gibts natürlich nicht mehr von Google, aber es gibt ja noch andere Webdienste welche man anzapfen kann. Das ganze beruht mitunter auf dem Beitrag "HTML Quellcode - Tabelle einlesen und weiterverarbeiten"!
Hierzu einfach einen Routenpunkt in den Routendetails anklicken und Button drücken!*Smilie


Viel Spaß

Gruß

LL

BTW: Es versteht sich von selbst das im Code keine Schweinereien laufen!!

 

Moin,

das ist echt super, was ihr hier gebastelt habt. Ich würde die Entfernungsberechnung gerne in meiner Access Datenbank Anwendung benutzen, hab aber leider keine Erfahrungen (Ahnung) mit VBA.

Ich habe eine Tabelle mit festen Stationen (Anlage Ziele1). In meinem Eingabe Formular für die Tagesfahrten habe ich zwei Felder Von und Nach. In diesen Feldern wird per DropDown Auswahl eine der Stationen ausgewählt. Nun möchte ich die Entfernung berechen lassen und in einem Feld "KM" anzeigen/abspeichern lassen. Abhängig von den Kilometern wird dann noch der Fahrpreis errechnet werden.
Das müßte doch machbar sein, oder ??

Alternativ habe ich eine Matrix mit allen Kombination erstellt (Anhang Matrix). Vielleicht kann man ja auch die benutzen, denn dann hat man gleich die beiden Adressen, für die die Entfernung benötigt wird.

Wäre echt super, wenn ihr mir helfen könntet, denn dann brauch ich nicht alles mit der Hand am Arm über Google Maps heraussuchen und eintragen.

Danke schon mal,
Harvey

 

Hallo
@LL
leider kann kch keine adressen in der schweiz als Start oder Ziel angeben

 

Hallo,

@Harvey186
Sollte eigentlich kein Problem sein,

und wie sieht es mit dem Rest aus? *wink.gif*

@Ruedi
ich schon, hab auch damit kein Problem *wink.gif*
Wie gibst Du den diese ein? (eigentlich schon fast egal, es sollte immer was kommen auch wenn keine Route gefunden werden kann!!?)
Und was geht wie nicht?

Gruß

LL

 

Naja, ich kann den PC an-und abmelden *Smilie

Ich hatte gehofft, dass das kein Problem sein sollte, für Euch Profi's, aber für mich ist es das totale Problem *frown.gif*

Gruß
Harvey

 

Hallo Harvey,

dann lad doch mal ein kleines Beispiel deiner DB hoch, dann schau ich mal was man machen kann. Du willst also nur die KM-Ermittlung gem Google-Fahrroute eingetragen haben.
Die Berechung dieser bassiert auf der schnellsten Route und kann natürlich von der tatsächlich gefahrenen Route abweichen.

Gruß

LL

 

Moin Louisleon,

die DB ist 13 MB groß !!!! Ich müsste Sie dann erstmal "abspecken".
Ja, das mit der schnellsten Route ist OK, da danach die Preise kalkuliert werden unabhängig von den tatsächlich gefahrenen KM.

Kannst Du vielleicht was mit meinen angehängten Excel-Dateien "basteln" ?

Danke schon mal
Harvey