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

Kannst du vielleicht mehr über deine Erfahrungen mit diesem Anbieter Berichten ? Hab den Link mal mit zu der Sammlung auf der ersten Seite hinzugefügt.