Browser/URL mit Standardbrowser öffnen

Question

Ich möchte eine URL mit meinem Standardbrowser öffnen.

Ich habe versucht, "Call Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe -url" & strUrl, 1)" zu verwenden, aber Firefox öffnet die URL nicht. Stattdessen startet Firefox mit meiner Standardseite.

Wenn ich "Call Shell(strURL,1)" im Erhalte eine "Datei nicht gefunden" Fehler.

Private Sub openurl_Click() 
    Dim urlopen As String 
    Dim User As String 
    Dim pass As String 

     urlopen = URL.Value 
     User = Username.Value 
     'pass = Passwort.Value 
     pass = InputBox("Passwort eingeben") 
     strUrl = "https://" & User & ":" & pass & "@" & urlopen 

     'MsgBox strURL <- TEST OUTPUT 

     'Call Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe -t" & strUrl, 1) 
     'Call Shell(strURL, 1) 

    End Sub 

Answer 1

Versuchen Application.FollowHyperlink statt Call Shell von

Application.FollowHyperlink strURL 

Answer 2

Hier ist die Art, wie ich diese Apps in meinen Access-Griff, mit Erfolg zu 100% so weit. Er ruft direkt die Windows-API shell32.dll

1. Erstellen Sie ein Modul und fügen Sie diese:

'------------------------------------------------------------------------ 
' Open an external application - Advanced way 
'------------------------------------------------------------------------ 
Public Declare Function ShellExecute _ 
    Lib "shell32.dll" Alias "ShellExecuteA" (_ 
    ByVal hWnd As Long, _ 
    ByVal Operation As String, _ 
    ByVal FileName As String, _ 
    Optional ByVal Parameters As String, _ 
    Optional ByVal Directory As String, _ 
    Optional ByVal WindowStyle As Long = vbMinimizedFocus _ 
) As Long 


'------------------------------------------------------------------------ 
' Open Webpage in default browser 
'------------------------------------------------------------------------ 
Public Sub OpenUrl(strURL) 
    Dim lSuccess As Long 
    lSuccess = ShellExecute(0, "Open", strURL) 
End Sub 

2. Von Ihrem Code, öffnen Sie Ihre URLs wie folgt aus:

OpenUrl "http://anything.com" 

---

Sie können die ShellExecute Funktion erweitern, um alles el zu öffnen se und nicht nur URLs

Answer 3

Ich habe eine Lösung. Vielleicht ist es interessant für jemanden hier.

Private Sub openurl_Click() 
    Dim urlopen As String 
    Dim User As String 
    Dim pass As String 

     urlopen = URL.Value 
     User = Username.Value 
     'pass = Passwort.Value 
     pass = InputBox("Passwort eingeben") 
     strURL = "cmd /c start https://" & User & ":" & pass & "@" & urlopen 

     'MsgBox strURL <- Test Output 

     Call Shell(strURL, 1) 

End Sub 

i hinzugefügt cmd /c start zum strURL String

strURL = "cmd /c start https://" & User & ":" & pass & "@" & urlopen 

es scheint eine "schmutzige" Lösung zu sein, aber es funktioniert: D