Daten auf Excel "herausholen"

[Bernd Schulz]

Hallo!<br>
Ich möchte ein Excel Sheet per IDataObject aus einem aktiven Excel auslesen.<br>
Funktioniert bei mir aber NUR als "Rich Text Format".<br>
Gerade das kann ich aber nicht gebrauchen. Ich möchte die Daten in einen Stream einlesen und via SaveToFile wieder eine gültige Excel Datei bekommen.<br>
Umgebung Delphi 5 und MS Excel 2002<br>
Hat das jemand mal gemacht?<br>
BYE BERND

[Bernd Schulz]

Hallo!<br>
Nach viel ausprobieren:<br>
Man nehme sich das (hier oft zitierte) Muster zur Verwendung des IDataObject im Zusammenhang mit Word von Hr. Kosch.<br>
Statt RTF als Format "Native" verwenden.<br>
Mit GlobalSize(aMedium.hglobal) kann man jetzt die Länge der Daten ermitteln.<br>
Das ganze in einen Stream einlesen und diesen per SaveToFile abspeichern. Es entsteht eine "normale" XLS Datei, die Excel jetzt wieder verwenden kann.<br>
BYE BERN