Hallo,
ich besuche eine Seite; ermittle die Searchbox, gebe einen Wert ein und bekomme Vorschläge dazu angezeigt. Auf diese Vorschläge möchte gern zugreiffen können.
Kann mir jemand dorthin helfen oder einen Link emfpehlen wo ich mich einlesen könnte?
Option Explicit
Sub TEST_webscrapping()
On Error GoTo Err
Dim ie As New SHDocVw.InternetExplorer
Dim docHTML As MSHTML.HTMLDocument
Dim elmInput As MSHTML.HTMLInputElement
With ie
.Visible = True
.navigate "https://www.morningstar.de/"
Do While .readyState <> READYSTATE_COMPLETE
DoEvents
Loop
End With
Set docHTML = ie.Document
With docHTML
Set elmInput = .getElementById("quoteSearch")
elmInput.Value = "Test"
End With
Err:
If Err.Number <> 0 Then
Debug.Print Err.Number & vbNewLine & Err.Description
End If
End Sub
|