Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#5

Re: DataSet nach Excel exportieren

  Alt 16. Apr 2009, 07:13
Also ich kann mir gut vorstellen, ein TcxGrid zu instantiieren, die Daten dort einzupflegen (am besten mit einer vordefinierten View) und dann nach XLS zu exportieren. So kompliziert ist das doch nicht.

Schnapp Dir ein Datamodule, pack eine GridRepository rauf, definiere dein Layout mit einer 'MyPredefinedView' und dann noch dieser "Dreizeiler", der den Job erledigt. Dann hast Du auch noch ein nettes Layout, das Du ggf. im Programm anpassen kannst.

Delphi-Quellcode:
procedure TMyExportDataModule.ExportToXLS (aDataSource : TDataSource);
Var
  myGrid : TcxGrid;

begin
  myGrid := TcxGrid.Create(nil);
  Try
    MyPredefinedGridView.DataController.DataSource := aDataSource;
    myGrid.Levels.Add.GridView := MyPredefinedGridView;
    ExportGridToExcel('C:\MyFile.XLS',myGrid,true,true,true);
  Finally
    MyPredefinedGridView.DataController.DataSource := Nil;
    myGrid.Free;
  End;
end;
[edit]Sourcecode verbessert (a.k.a 'getestet')[/edit]
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat