DBGrid nach Excel Exportieren

[nahpets]

Was hast Du vor?

Willst Du eine von Excel lesbare Datei erstellen oder möchtest Du Excel aus Deinem Programm heraus fernsteuern?

'ne CSV-Datei erstellen (ungetestet hingedaddelt):

Delphi-Quellcode:

var
     i : Integer;
     s : String;
     sl : TStringList;
begin
  sl := TStringList.Create;
  DBGrid.DataSource.DataSet.First;
  while not DBGrid.DataSource.DataSet.Eof do begin
    s :='';
    for i := 0 to DBGrid.DataSource.DataSet.Fields.Count - 1 do begin
      s := s + Format('"%";',[DBGrid.DataSource.DataSet.Fields[iLen].AsString]);
    end;
    sl.Add(s);
    DBGrid.DataSource.DataSet.Next;
  end;
  sl.SaveToFile('irgendwas.csv');
  sl.Free;
end;

Statt des Konstruktes DBGrid.DataSource.DataSet kannst Du natürlich auch Deine Abfragekomponente nehmen.