Personalizar exportacion a excel

[delphi.com.ar]

Bueno, es bastante sencillo, primero te recomiendo ver el ejemplo "ExportGrid" incluído con los componentes, lo único que tienes que hacer es enlazar la propiedad "DataSet" del componente a utilizar con el DataSet que contenga tus datos, luego si quieres que el archivo exportado conserve el formato de las columnas de un DBGrid, puedes asignarle las columnas de este DBGrid a la propiedad Fields, o Columns, según corresponda (en el ejemplo hace un llamado a la función GetFields, que es una función abstracta implementada en forma polimórfica por cada descendiente), y luego simplemente indicas donde quieres generar el archivo con la función: SaveToFile.

Ejemplo:

Código Delphi [-]
  TfrmMain = class(TForm)
    tblContacts: TTable;
    dsContacts: TDataSource;
    dbgContacts: TDBGrid;
    procedure btnExportClick(Sender: TObject);
  private
  public
  end;
  
var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnExportClick(Sender: TObject);
var
  ADataToXLS: TDataToXLS
begin
  tblContacts.Open ;
  ADataToXLS := TDataToXLS.Create(Self);
  try
    ADataToXLS.DataSet := tblContacts;
    ADataToXLS.GetFields.Assign( dbgContacts.Columns )
    ADataToXLS.SaveToFile('c:\Ejemplo.xls');
  finally
    ADataToXLS.Free;
  end;
end;

Saludos!