Firefox 136.0.1 mit Access VBA automatisieren

Hallo,
inzwischen verzweifle ich an dem Versuch, Firefox mit Access VBA zu automatisieren. Ich hoffe, dass mir in diesem Forum jemand helfen kann.

Worum geht es?
Die Website, die ich bearbeiten will ist https://dispatch.simbrief.com/options/new
Hier gibt es 4 Eingabefelder, die ich mit einem Text aus der Access DB befüllen möchte.
Z.B. das Feld mit der input id "airline" Hier soll der Wert DLH aus der Access DB eingetragen werden.
Auf der Seite ist auch noch ein Drop Down Feld zur Auswahl des gewünschten Fliegers.
Wenn alle 4 Felder befüllt sind und der Flieger gewählt ist, soll der Generate Flight Button automatisch geklickt werden.

Die Site kann ich aus Access heraus per VBA öffnen.
Dann habe ich etliche Versuche mit dem GeckoDriver 0.36.0 und xPath unternommen, um das Feld "airline" mit dem Wert DLH zu füllen. Leider erreiche aber nichts.
Kann mir bitte jemand einen Code zur Verfügung stellen, mit dem ich mein Ziel erreichen kann? Im Voraus vielen Dank für Eure Hilfe.
Moderne Programmiersprachen wie Java, etc. kann ich leider nicht.

Grüße
Joachim

Hallo Sven,

danke für die Antwort. Ich stelle hier mal den Code, den ich bisher habe zur Verfügung:

Public text As String
Public wert As String

Public drv As FirefoxDriver
Public ele As WebElement
Public xPath As String

Public Sub abfahrt()
	Call OpenURLInFF("https://dispatch.simbrief.com/options/new")
End Sub

Public Sub OpenURLInFF(ByVal sURL As String)
	On Error GoTo Error_Handler
    
	Dim WSHShell As Object
	Dim sFFExe As String 'FF executable path/filename
	
    'Determine the Path to FF executable
	Set WSHShell = CreateObject("WScript.Shell")
	sFFExe = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\firefox.EXE\")
	
    'Open the URL
	Shell """" & sFFExe & """" & " -new-tab """ & sURL & "", vbHide
	
	xPath = "//input[@id='airline']"
	If GetElement(xPath) Then
		drv.SendKeys AirlineCodeIcao
	End If
	
	Error_Handler_Exit:
	On Error Resume Next
	If Not WSHShell Is Nothing Then Set WSHShell = Nothing
	Exit Sub
	
	Error_Handler:
	If Err.Number = -2147024894 Then
		MsgBox "FireFox does not appear to be installed on this compter", _
		vbInformation Or vbOKOnly, "Unable to open the requested URL"
	Else
		MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
		"Error Number: " & Err.Number & vbCrLf & _
		"Error Source: OpenURLInFF" & vbCrLf & _
		"Error Description: " & Err.Description & _
		Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
		, vbOKOnly + vbCritical, "An Error has Occurred!"
	End If
	Resume Error_Handler_Exit
End Sub

Public Function GetElement(xPath As String) As Boolean
	On Error GoTo Handler
	
    'drv.Wait (5000)
    'text = ""
	Set ele = drv.FindElementByXPath(xPath)
    'text = ele.text
	GetElement = True
	Exit Function
	
	Handler:
	Err.Clear
	GetElement = False
End Function

Sobald ich auf drv zugreifen will, kommt Error 91 in Access.
Kannst Du den Fehler hier entdecken?

Gruß und danke,
Joachim

Einen Fehler konnte ich beheben. Es hat der Set drv = New Selenium.FirefoxDriver gefehlt, den ich jetzt nachgetragen habe.
Nun kann ich auf drv zugreifen. Wenn ich aber das hier:
Set ele = drv.FindElementByXPath(xPath)
'text = ele.text
GetElement = True
Exit Function

ausführen will, kommt beim Zugriff auf drv der Fehler 57 (Browser not started) Ich soll einen Get, Start oder StartRemotely ausführen.
Bei drv.get "https://dispatch.simbrief.com/options/new" öffnet sich nur die Google Suchseite und nach 15 Sekunden kommt die Meldung Listen to Port ......
Bei drv.Start "firefox", "https://dispatch.simbrief.com/options/new" bekomme ich auch nur die Google Suche und den Timeout Fehler
Bei drv.StartRemotely "firefox","https://dispatch.simbrief.com/options/new" bekomme ich einen URI Fehler.

Ich weiss echt nicht mehr weiter.

Zitat von SOLVE-SMART

Oha, ich habe diverse Fragen Joachim:

1. Sind die Screenshots und die Einschätzungen der XPaths (1) bis (5) korrekt? Habe ich dich richtig verstanden?
2. Bist du an VBA bzw. VBScript gebunden oder kannst du auch mit AutoIt etwas anfangen?
3. Woher beziehst du deine Daten? Also wie oft willst am Ende "Generate Flight" abschicken?
   Geht es hier um einen Datensatz oder um 10 oder um 100-500?
4. Ich denke du hast auch etwas vermischt (oder ich habe dich falsch verstanden), das WebDriver (Browser Automatisierung) und Public drv As FirefoxDriver sicherlich zwei unterschiedliche Dinge sind. Zumindest das AutoIt Projekt "au3WebDriver" was das WebDriver Protokoll nutzt, ist nicht das Gleiche wie dein drv.
5. Beschreibe nochmal bitte dein Gesamtziel, damit ich oder andere hier, ggf. eine Empfehlung zu Alternativen aussprechen kann.
   Was ich meine ist, vielleicht stellt sich ja auch heraus das man per API einen Flug buchen kann (HTML requests <==> responses) und dann musst du gar nicht über den Browser gehen.

Viele Grüße
Sven

Hallo Sven,

ich bin für mehrere Airlines tätig und muss daher spezifische Daten aus der DB an FF weitergeben.
Ich denke also, ich bin auf VBA angewiesen. Ob ich mit AutoIT etwas erreichen kann, weiß ich nicht. Zumal ich nur Office VBA programmieren kann.

Deine anderen Fragen kann ich so beantworten:
1 - Ja, im Großen und Ganzen stimmt Deine Einschätzung
2 - siehe Einleitung in diesem Post
3 - Die Daten beziehe ich aus einer Tabelle in Access. Es geht hier um exakt einen Datensatz
4 - Diese Ausführungen verstehe ich leider nicht.
5 - Ziel ist es, die Daten aus einem Datensatz in die Boxen auf der Website einzutragen, aus DropDown Nr 4 in Deinem Bild, den Flieger auszuwählen und anschließend 1 mal den Generate Flight Button zu drücken.

Falls es möglich ist, diese Aufgabenstellung mit AutoIT zu erledigen, bin ich gerne bereit, das zu probieren. Aber, Access ist das führende Datensystem und wie erwähnt, ich kann kein Java, oder sonstige hohen Programmiersprachen. Am Rande erwähnen möchte ich, dass es sich hier nicht um ein kommerzielles, sondern um ein rein privates Projekt handelt.

Grüße und danke für Deine Hilfe,
Joachim

Also, für mehrere Airlines tätig bedeutet, dass ich im MSFS2024 diverse Flugzeuge von diversen Airlines "fliege".
Die Access DB dient hier zum einen der Flugvorbereitung und danach zur Flugerfassung und Nachbearbeitung.
Das ist alles rein privat.

Zu 3:
Auf der Website sind die Daten einzutragen, die für einen Flug gebraucht werden. Diese Daten sind die Airline, die Flugnummer, der Startflughafen, der Zielflughafen und das gewünschte Flugzeug.
Die Daten sind in der Access DB hinterlegt. Nehmen wir an, ich möchte von München nach Hamburg fliegen, dann enthält der Datensatz folgende Infos:
Airline = DLH, Flugnummer = 124, Startflughafen = EDDM, Zielflughafen = EDDH und das gewünschte Flugzeug ist ein Airbus A320
Mit diesen Infos kann ich auf der Website einen Flugplan generieren, den ich dann im Simulator abfliege. Die ersten 4 Felder sind komplett variabel und in der Tabelle hinterlegt, insgesamt ca. 30.000 Datensätze.
Das ausfiltern des gewünschten Fluges geschieht mit DropDown Feldern in der DB. So kommt am Ende exakt nur ein Datensatz für den gewünschten Flug heraus.
Den gewünschten Flieger suche ich mir dann aus. Kommt drauf an, mit was ich gerade "fliegen" möchte. Ich mache am Tag meist einen Flug von und zu den unterschiedlichsten Airports. Also keine einmalige Sache.
Es ist eine DB mit den unterschiedlichsten Tabellen. Für die Daten auf der Website gibt es aber nur eine Tabelle.

Zu 4:
Es kommt halt darauf an, was ich für die Programmierung in AutoIT können muss. Ich bin über 60 und kann kein Java, etc.. Wenn ich das für AutoIT nicht brauche, umso besser.

Abschließend kann ich mitteilen, dass wir über eine Microsoft Access Datenbank sprechen. Und dass ich nur den in 3 genannten Datensatz übertragen will. Per Generate Flight wird der Flugplan dann erstellt.

Ich hoffe, ich konnte Deine Fragen alle beantworten.
Danke nochmals für Deine Hilfe.
Joachim

Hallo Sven,
ich bin beeindruckt von Deiner Auffassungsgabe, wie diese Website funktioniert.
Danke auch für das Video. Gut gemacht und verständlich nachgefragt.
Hier nun kommen meine Antworten:

Ich werde Dir für die Entwicklung meine Simbrief Account Zugangsdaten geben. Das Passwort kann ich ja dann wieder ändern, wenn Du den Account nicht mehr brauchst.
Falls es Dir hilft, kann ich Dir auch gerne die DB verfügbar machen. Generell bin ich für die xPath Lösung, da ich im Falle eines Falles, selbst Anpassungen vornehmen kann.
Die IDs der Eingabefelder ändern sich nämlich hin und wieder.
Ich möchte nach dem Start des PC, im Falle dass ich fliegen will, wie folgt vorgehen:
Start der Access DB -> Auswahl der Flugdaten -> Öffnen FF durch die DB(Der FF ist zuvor nicht gestartet) -> Übertragen der 4 Daten in die Felder -> Auswahl des Fliegers -> Generate Flight Click -> Auslesen des von Simbrief erstellten Flugplans und übertragen in die DB ( she. Bild) -> Abschluss der Verarbeitung durch Click auf CommandButton in der DB und schliessen des FF. So habe ich es im MS Edge realisiert. Da der Edge aber von Version zu Version immer miserabler wird, möchte ich auf FF umsteigen.

Anmerkung zu Deinem Video:
Die Auswahl des Fliegers erfolgt nicht in der linken sondern in der rechten DropDown Box. Im Testaccount dürfte da nichts drin sein. In meinem Account sind dort aber die Flieger, für die ich Lizenzen habe.
Ich kann die Daten aus der DB auch als XML-Datei ausgeben, falls es dann einfacher wäre, das Ziel zu erreichen.

Ich hoffe, dass alles beantwortet ist. Falls es weitere Fragen gibt, einfach fragen.

Grüße und vielen Dank für Deinen Einsatz.
Joachim

Ich habe mich über das gesamte Wochenende mit AutoIt beschäftigt und keine Lösung finden können.
Das wohl vielversprechende FF.au3 funktioniert mit der neuen Firefox Version nicht mehr. Und im AutoIt Examples Ordner habe ich nichts gefunden.
Es sieht wohl danach aus, dass ich AutoIt für meinen Anwendungsfall nicht nutzen kann. Trotzdem danke Sven für Deine Hilfe.

Grüße
Joachim

Moin Sven,

danke für Deine Rückmeldung.

Als "Pilot" kommt man ohne Discord nicht aus.
Deine Einladung, dem AutoIt Discord beizutreten, nehme ich gerne an.

Ich habe gesucht "wie blöd" nach Codes zum FF starten. Sowohl bei Google -wo ich auf das FF.au3 gestossen bin- als auch in der AutoIt Hilfe und in den Beispielen im Programm Ordner.
Das, von Dir genannte GitHub Project sehe ich mir jetzt einmal an und hoffe, dass ich daraus etwas für mein Projekt entnehmen kann. Ich melde mich dann auf dem Discord wieder.

Grüße und danke für die Hilfe,
Joachim