![]() |
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 |
am einfachsten man berechnet den link dazu (z.B. http://maps.google.de/maps?f=q&hl=de...alfischgasse+5)
|
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 |
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?! |
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 |
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? |
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 18:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag