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
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