|
Guten Tag
Ich habe mein obgenanntes Problem endlich gelöst, vielen Dank ihr seid die Besten!!!
Nun kann ich mit dem folgenden Makro den Aktienpreis scrapen.
Jetzt stellt sich bei mir die Frage, ob und wie es möglich ist, gleichzeitig mehrere Ticker in derselben Spalte rauszuziehen.
Zudem möchte ich nebst dem Aktienpreis noch weitere Kennzahlen wie zum Beispiel P/E Ratio, KGV oder Market Cap abfragen.
Könnt ihr mir da behilflich sein?
Option Explicit
Sub Sub_Aktienkurse()
Dim ticker As String
Dim myValue As String
Dim allRowOfData As Object
Dim i As Integer
ticker = Range("A1")
With CreateObject("InternetExplorer.Application")
.Top = 0
.Left = 0
.Width = 800
.Height = 600
.Visible = True
.Navigate "https://finance.yahoo.com/quote/" & ticker & "?p=" & ticker & ""
.Visible = True
Do While .Busy
DoEvents
Loop
Set allRowOfData = .Document.getElementsByClassName("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)")
For i = 0 To allRowOfData.Length - 1
Range("B1").Offset(0, i).Value = allRowOfData(i).innerText
Next i
.Quit
End With
End Sub
|