Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#17

AW: Export nach Excel

  Alt 30. Aug 2012, 17:38
Nein, Du kannst das ganze in einer Stringlist aufbauen, den Text in die Zwischenablage legen und per OLE einfügen.

Delphi-Quellcode:
clipboard.Settextbuf(Pchar(sl.Text));
FWorkBook.ActiveSheet.Paste;
FWorkBook.ActiveSheet.Columns.EntireColumn.AutoFit;

// folgendes wenn Du die Header mit ausgibst
FExcel.Rows.Item[0].Select;
FExcel.Selection.Interior.Color := Color;
Fexcel.ActiveWindow.FreezePanes := False;
Fexcel.Cells[0,1].Select;
Fexcel.ActiveWindow.FreezePanes := True;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat