Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Probleme Standard Browser FireFox ,mit Edge und Google Maps

Begonnen von Bernie110, Dezember 05, 2023, 17:28:02

⏪ vorheriges - nächstes ⏩

Bernie110

Hallo Zusammen,

mit diesem Code habe ich früher mal eine Strecke in Google Maps aufgerufen.

Dim X_ABS_Ort As String
Dim X_ABS_Plz As String
Dim X_ABS_Strasse As String
Dim X_EMPF_Plz As String
Dim X_EMPF_Ort As String
Dim X_EMPF_Strasse As String


            X_ABS_Plz = Me.ABS_PLZ
            X_ABS_Ort = Me.ABS_ORT
            X_ABS_Strasse = Me.ABS_Strasse

            X_EMPF_Plz = Me.EMPF_PLZ
            X_EMPF_Ort = Me.EMPF_ORT
            X_EMPF_Strasse = Me.EMPF_Strasse
URL = "https://www.google.de/maps?f=q&source=s_q&view=text&q=" & X_ABS_Plz & " " & X_ABS_Ort & " " & " nach " & X_EMPF_Plz & " " & X_EMPF_Ort & ""
Application.FollowHyperlink URL

Er öffnet  ordnungsgemäß Google Maps und zeigt kurzzeitig die Strecke an.
Nur dann fordert er mich auf Edge zu benutzen da der InternetExplorer nicht mehr funktioniert.

Kann man das irgendwie gleich in Edge öffnen ? Wir haben leider Firefox als Standard Browser.
kann das auch nicht umstellen.

Herzlichen Dank für eure Antworten
Lg Bernie
  •  

joschi50

Einen bestimmten Browser kannst Du mit wshshell öffnen hier ein Beispiel für Chrome

Dim wshshell
  Set wshshell = VBA.CreateObject("WScript.Shell")
 
  wshshell.Run "Chrome.exe -url " & "https://..........", , True
 
  Set wshshell = Nothing

Da ich Edge nicht nutze musst Du den exe Aufruf für Edge rausfinden.
Auch Wolkenkratzer haben mal als Keller angefangen.
  •  

Bernie110

Hi Joschi klasse danke !  War jetzt etwas gepfriemel bis ich den neuen Link-String gebastelt hatte ..funktioniert jetzt aber wunderbar.
Merci
Lg Bernie
  •  

Köbi

Hallo Bernie

Es wäre schön, wenn du den gepfriemelten neuen Link-String mit uns teilen würdest.
  •  

Bernie110

Hi Kobi klar, so funktioniert es jetzt bei mir :

URL = "https://www.google.de/maps/dir/" & Me.ABS_Plz & "+" & Me.ABS_Ort & "\" & Me.EMPF_Plz & "+" & Me.EMPF_Ort

Dim wshshell
  Set wshshell = VBA.CreateObject("WScript.Shell")
 
  wshshell.Run "Msedge.exe -url " & URL, , True
 
  Set wshshell = Nothing

Lg Bernie
  •  

Köbi

  •