esta es la funcion que uso....
Código Delphi
[-]
procedure ExportToMSExcel(DBGridExcelExport : TJvDBGridExcelExport; SaveDialog : TJvSaveDialog; DBUltimGrid : TJvDBUltimGrid; ProgressDialog: TJvProgressDialog);
begin
SaveDialog.Title := 'Exportar a Microsoft Excel...';
SaveDialog.Filter := 'Microsoft Excel 97-2003 [*.xls]|*.xls|Microsoft Excel 2007 [*.xlsx]|*.xlsx|Todos los Archivos [*.*]|*.*';
SaveDialog.FilterIndex := 1;
SaveDialog.DefaultExt := '*.xls';
if SaveDialog.Execute Then
begin
DBGridExcelExport.FileName := SaveDialog.FileName;
DBGridExcelExport.Grid := DBUltimGrid;
ProgressDialog.Position := 0;
ProgressDialog.Max := DBUltimGrid.DataSource.DataSet.RecordCount-1;
ProgressDialog.Show;
DBGridExcelExport.ExportGrid;
ProgressDialog.Hide;
end;
end;