Oliver Renner schrieb:Hallo,
ich versuche vergeblich Euro/Dollar Kurse herunterzuladen. Mit folgendem Ansatz:
Set IntradayKurswerte = TPRDataBase.IntradayChart(lngTPRNummer, False, AktuellesDatum)
For Each titel In IntradayKurswerte
Cells(sngCount1, 1) = titel.Kurs
Cells(sngCount1, 2) = titel.Volume
Cells(sngCount1, 3) = titel.Zeit
Cells(sngCount1, 4) = AktuellesDatum
sngCount1 = sngCount1 + 1
Next titel
(sngCount1 zählt dabei durch die Zeilen)
Für normale Aktien wie Adidas funktioniert es perfekt. Ich komme hier in Tickauflösung die Intraday-Daten des gesamten Tages. Nur für Wechselkurse funktioniert es nicht. Die interne TPRT-SymbolNr. habe ich auch schon ermittelt (41169399). Die Bezeichnugn ist: EURUS ZKB C 01/13 /Z
Ich bekomme hier nur die Daten für einen bestimmten Zeitpunkt, aber nicht für den gesamten Tag.
Woran könnte es liegen?
Vielen Dank!
MFG
OR
Hallo,
Sie rufen Bezahlt-Kurse ab, das Wertpapier hat allerdings nur sehr wenig, bis fast gar keine Bezahlt-Ticks.
Wenn Sie Geld-Brief-Kurse abrufen, erhalten Sie mehr Ticks:
Set IntradayKurswerte = TPRDataBase.IntradayChart(lngTPRNummer,
True, AktuellesDatum);
IntradayKurswerte.KursArt=TPRKursartBriefFor Each titel In IntradayKurswerte
[...]
Next titel
IntradayKurswerte.KursArt=TPRKursartGeldFor Each titel In IntradayKurswerte
[...]
Next titel
Entwicklung | Lenz+Partner GmbH | vwd group
Phone: +49 231 9153-300 | Fax: +49 231 9153-399
entwicklung@lp-software.de |
www.LP-software.de |
www.vwd.com