ich verwende folgenden Code, um eine Webseite in Firefox zu öffnen.
Das funktioniert soweit, mein Problem sind nur die letzten drei Zeilen (nach Shell...). Hier möchte ich einen Button auf der Webseite anklicken. In IE würde ich das über ein Object machen, aber ich weiss nicht, wie ich diesen Schritt in Firefox umsetze.
Kann mir jemand weiterhelfen ?
Mein Code:
Private Sub Test_OpenFireFoxNewTab()
Dim objElement As Object, objIE As Object, varPath As String, varUrl As String
varUrl = "https://myUrl"
varPath = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
If Dir(varPath) = "" Then
varPath = "C:\Program Files\Mozilla Firefox\firefox.exe"
End If
If Dir(varPath) = "" Then
MsgBox "Unable to open website in Firefox", vbCritical, "Error"
End If
Shell """" & varPath & """" & " -new-tab " & varUrl, vbHide
Application.Wait Now + TimeValue("0:00:03")
' Set objElement = Document.GetElementsByClassName("btn btn--primary btn--smaller _
permissions-btn")(0)
' objElement.Click
End Sub
Vielen Dank im Voraus für Eure Hilfe. VG,
Markus