Realtime-Kurse einlesen
http://www.boerse.de bietet auch Realtimekurse in einer Listendarstellung an. Damit sind die Daten für das Einlesen mit Excel prädestiniert. Das folgende Makro liest aus dem Prime Standard über 300 Aktien und deren Realtimekurse in Excel ein.
Die Adresse hierfür ist:
Makro
Public Sub Realtime()
Set wstemp = Worksheets("Tabelle1")
' Daten werden ins Tabellenblatt "Tabelle1"
eingelesen
Dim webadresse As String
' Beispieladresse
webadresse="http://aktien.boerse.de/aktien_startseite.php?view=2&order=name
asc&liste=prime&boerse_id=16#anker_liste"
' Start Zugriff auf das Internet
With wstemp.QueryTables.Add(Connection:= _
"URL;" & webadresse & "", Destination:=wstemp.Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
In Excel sieht das Ergebnis dann wie folgt aus (lediglich die ersten 30 Aktien aus ca. 300 sind im Bild zu erkennen):
 |