ich versuche gerade Suchen über den Internet Explorer zu automatisieren. Soweit hat alles gut geklappt, aber auf der folgenden Seite kann ich auf die Eingabefelder der Suchmaske nicht zugreifen. Üblicherweise erfolgt der Zugriff über die ID, aber hier gibt er nur Fehlermeldungen aus. Die Eingabefelder sind als class "log" deklariert.
Im nächsten Schritt würde ich die Suchanfrage ausführen und die Ergebnisse auslesen.
Weiß jemand wie man hier weiter kommt?
Sub Suche_bei_Gefahrstoffe()
Dim IEApp As Object, frage As String
Dim i As Integer, IEDoc As Object
Dim strÜbergabe As String
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://www.gefahrstoff-info.de/igs/oberfl/gdl/formHtml/default/" & _
"LOGINSERVLET.app?INIT=1&USER_ID=77032&DATEI=igs_suche_frame.vm&user=Gast&password" & _
"=Gast&LOGDATEI=login.cry&P_SUCHE_MOD=1&xP_CB_SuchModus=1&P_OBERFL=gdl"
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.Document.readyState = "complete"
IEApp.Visible = True
IEApp.Document.getElementById("ED_CAS").Value = "BeispielSuchNummer"
Set IEApp = Nothing
End Sub