WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)
-   -   google maps (http://www.wcm.at/forum/showthread.php?t=217961)

chr 18.06.2007 19:12

google maps
 
Hallo
Habe in Excel eine Projektverwaltung mit Adressen.
Möchte nun Funktion, sodass durch anklicken einer Adresse in Google Maps - Meine Karten die Adresse gesucht wird und dort ein Marker gesetzt wird.
Geht das mit VBA? (Den "Excel-Teil" von VBA kann ich) oder geht es irgendwie anders (einfacher) auch?

Grüße
Chr

void 19.06.2007 21:11

am einfachsten man berechnet den link dazu (z.B. http://maps.google.de/maps?f=q&hl=de...alfischgasse+5)

chr 26.06.2007 15:57

Ok, Danke.
Folgendes funktioniert:
Set goomaps = CreateObject("InternetExplorer.Application")
goomaps.Visible = True
wohin = "http://maps.google.de/maps?q= straße nr, PLZ Ort"
goomaps.navigate2 wohin

Dass öffnet aber jedesmal ein neues Fenster.
Habs schon geschafft, abzufragen, ob es bereits ein google-maps-fenster gibt, und hab auch den handle davon:
goomaps = FindWindow("IEFrame", "Google Maps - Microsoft Internet Explorer"

Nur weiß ich nicht, was ich mit dem handle machen soll, damit die Adresse in dieses Fenster geschrieben wird, so nach dem Motto:

weißnichtwie(goomaps).navigate wohin

Grüße
Chr

void 12.07.2007 10:01

Set goomaps = CreateObject("InternetExplorer.Application")
goomaps.Visible = True
wohin = "http://maps.google.de/maps?q= straße nr, PLZ Ort"
goomaps.navigate2 wohin

...das nächste mal:

goomaps = FindWindow("IEFrame", "Google Maps - Microsoft Internet Explorer"
wohin2 = "http://maps.google.de/maps?q= straße nr, PLZ Ort"
goomaps.navigate2 wohin2

funktioniert das nicht?!

chr 04.09.2007 11:56

Hallo Void
Tschuldige, dass solange Funkstille (Zuerst Stress, dann langer Urlaub)
Funktioniert leider nicht, da sich der Fenstertitel ändert
(Vor "Google Maps - Microsoft Internet Explorer" steht die zuletzt gesuchte Adresse)
Deswegen wollte ich den Fenstertitel ändern:
goomaps.Locationname = "Google Maps"
Doch das will er nicht -> Fehlermeldung

grüße
Chr

void 04.09.2007 12:38

hallo back,
du hast geschrieben, dass du den handle von dem bestehenden fenster hast...:D
d.h. du bräuchtest den kompletten namen?

bzw. kannst du dir nicht einfach den handle vom zuletzt geöffneten window merken?

chr 04.09.2007 15:22

Den Fensterhandle habe ich (nicht mit FindWindow sondern mit einer ergoogelten Funktion, die nur einen Teil des Fensternamens braucht:
Function SearchHndByWndNameParent) und daraus den kompletten Fensternamen

Hab also:
Den Fensterhandle
Den Fensternamen

Nur weiß ich nicht was ich damit machen soll, daß navigate2 funktioniert.


Alle Zeitangaben in WEZ +2. Es ist jetzt 17:59 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag