|
Hallo!
Ich möchte Daten von Ariva.de per VBA in Excel impoertieren und diese anschließend grafisch darstellen. In B1 möchte ich die ISIN eingeben. In B7 bis G7 möchte ich die Daten (vorerst von 1999-2004) importieren. Hier ist ein Code, den ich gebaut hab:
Option Explicit
Sub Aktienkurs1()
Dim appIE As Object
Dim ticker As String
Dim myValue As String
Dim allRowOfData As Object
Dim Umsatz As Object
ticker = Tabelle1.Cells(1, 2).Value
Set appIE = CreateObject("internetexplorer.application")
appIE.Top = 0
appIE.Left = 0
appIE.Width = 1000
appIE.Height = 800
appIE.Visible = True
With appIE
.Navigate "https://www.ariva.de/" & ticker & "/bilanz-guv?page=15"
.Visible = True
End With
Do While appIE.Busy
DoEvents
Loop
Set allRowOfData = appIE.document.getElementsByClassName("subtitle level" & Umsatz)
myValue = allRowOfData(0).innertext
appIE.Quit
Set appIE = Nothing
Tabelle1.Range("B7:G7").Value = myValue
End Sub
Ich denke, der Fehler ist in der Zeile "Set allRowOfData..." - ich komme aber nicht weiter. Ist es auch möglich, den Aktienchart und den richtigen Aktienkurs (bei US-Aktien in US-Dollar) zu importieren. Dieser wird auf dieser Seite immer wieder in Euro angezeigt.
Wäre schön, wenn mir jemand helfen könnte. Vielken Dank im Voraus.
Tschüss
Gerhard
|