ich bin beim Umgang mit dem Internet Explorer per vba noch nicht sehr weit... Ich würde gerne eine Suche für chemische Gefahrenstoffe über mehrere Internetseiten über Excel vba automatisieren. Hierbei soll der Suchtext bei ericards, gestis.itrust, etc. übergeben und die Treffer in Excel aufgelistet werden.
Auf die Eingabefelder kann ich bereits zugreifen, aber wie schaffe ich es dass die Anfrage abgeschickt wird? Das Absenden der Eingaben wird anscheinend über die Post-Methode durchgeführt.
-> form action="ericonline.psp_search_result" method=post name="frm"
Hier der bisherige VBA-Code:
Sub Suche_bei_Ericards()
'Benötigt keine Verweise
Dim IEApp As Object, frage As String
Dim I As Integer, IEDoc As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://www.ericards.net/psp/ericonline.psp_search_adv?p_lang=1"
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("substance").Value = "chlor"
IEApp.Document.getElementById("lang").Value = 3 '3 = deutsch
IEApp.Document.getElementById("unnumber").Value = "123"
IEApp.Document.getElementById("operators").Value = "AND"
Set IEDoc = IEApp.Document
Do: Loop Until IEDoc.readyState = "complete"
Set IEApp = Nothing
End Sub