|
Guten Tag
Ich komme leider seit einiger Zeit nicht mehr weiter mit dem Web Scraping.
Bisher habe ich es geschafft, den Aktienpreis eines spezifischen Tickers zu scrapen.
Mein Ziel ist es nun, mehrere Kennzahlen gleichzeitig zu scrapen, nur fehlt mir dafür der richtige Code.
Zudem wäre es hervorragend, wenn ich in einer Excel-Spalte mehrere Aktien Ticker auflisten könnte und von diesen dann mit einem Loop alle Kennzahlen abrufen könnte.
Hier findet ihr meinen bisherigen Code:
Sub Sub_Aktienkurse()
Dim appIE As Object
Dim ticker As String
Dim myValue As String
ticker = Range("A1")
Set applE = CreateObject("InternetExplorer.Application")
applE.Top = 0
applE.Left = 0
applE.Width = 800
applE.Height = 600
applE.Visible = True
With applE
.Navigate "https://finance.yahoo.com/quote/" & ticker & "?p=" & ticker & ""
.Visible = True
End With
Do While applE.Busy
DoEvents
Loop
Set allRowOfData = appIE.document.getElementsByClassName("Ta(end) Fw(b) Lh(14px)")
myValue = allRowOfData(0).innerText
applE.Quit
Set applE = Nothing
Range("B1").Value = myValue
End Sub
Vielen Dank für eure Mithilfe und ein schönes Weekend.
Liebe Grüsse
Michael
|