Cita:
Empezado por movorack
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;
|
Hola movorack
estaba mirando este código.. como nunca habia usado el componente DBGridExcelExport, lo copie y me funciono super bien... mi consulta va con respecto al
ProgressDialog, que componente es ?.... y en que paleta esta ubicado... puse uno de tipo
ProgressBar.. pero no me funciono...
Me podrias indicar como solucionar ese problema...
Gracias