Kostenlose Historische EOD Daten

https://www.quotemedia.com/

API (Beispiel)
http://app.quotemedia.com/quotetools/get...ymbol=AAPL

Lässt sich leicht in Excel einbinden:
Beispiel:
Das Tickersymbol steht in A1, die Ausgabe erfolgt ab A3. Die Daten werden als csv übertragen und in Excel eingefügt.
in der Variable en wird das aktuelle Datum eingefügt (Enddatum).
In der Variable st mit wird vom aktuellen Jahr zwei Jahre zurück gegangen (Startdatum).
Nur die ersten 5 Werte werden durch TextFileColumnDataTypes formatiert.

Die Procedure lässt sich über eine do while-Schleife aufrufen, wobei in A1 immer das aktuelle Tickersymbol eingetragen wird.
Übertragen werden folgende Daten:
Date, open, high, low, close, volume, changed, changed percentaged, adj close, trade value, trade volume

Code:

Sub Kurse_Hist()
Dim ticker As String
Dim st, en As Date

Dim Pfad As String
Dim tmp As String

en = Date
st = DateSerial(Year(en) - 2, Month(en), Day(en)) '<- Hier bitte für das Startjahr rumfummeln
Pfad = "http://app.quotemedia.com/quotetools/getHistoryDownload.csv?&webmasterId=501&startDay=" + Trim(Str(Day(st))) + "&startMonth=" + Trim(Str(Month(st))) + "&startYear=" + Trim(Str(Year(st))) + "&endDay=" + Trim(Str(Day(en))) + "&endMonth=" + Trim(Str(Month(en))) + "&endYear=" + Trim(Str(Year(en))) + "&isRanged=true&symbol="

ticker = Range("A1")


   With ActiveSheet.QueryTables.Add(Connection:= _
       "TEXT;" & Pfad & ticker, Destination:=Range("$A$3"))
       .Name = ""
       .FieldNames = True
       .RowNumbers = False
       .FillAdjacentFormulas = False
       .PreserveFormatting = True
       .RefreshOnFileOpen = False
       .RefreshStyle = xlOverwriteCells
       .SavePassword = False
       .SaveData = True
       .AdjustColumnWidth = True
       .RefreshPeriod = 0
       .TextFilePromptOnRefresh = False
       .TextFilePlatform = 850
       .TextFileStartRow = 1
       .TextFileParseType = xlDelimited
       .TextFileTextQualifier = xlTextQualifierDoubleQuote
       .TextFileConsecutiveDelimiter = False
       .TextFileTabDelimiter = True
       .TextFileSemicolonDelimiter = False
       .TextFileCommaDelimiter = True
       .TextFileSpaceDelimiter = False
       .TextFileColumnDataTypes = Array(xlMDYFormat, xlGeneralFormat, xlGeneralFormat, xlGeneralFormat, xlGeneralFormat)
       .TextFileDecimalSeparator = "."
       .TextFileThousandsSeparator = ","
       .TextFileTrailingMinusNumbers = True
       .Refresh BackgroundQuery:=False
   End With

End Sub

Wow, und das von allen gelisteten Stocks.
Das kommt mir schon fast zu gut vor, wenn die Daten zuverlässig sind (bei Apple scheint das alles zu stimmen). Das kann doch nicht kostenlos sein, gibt's da nicht irgendwelche Beschränkungen? Preise bzw. was da Geld kostet konnte ich gar nicht finden.