Ver Mensaje Individual
  #8  
Antiguo 05-02-2008
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Reputación: 23
BlueSteel Va por buen camino
Cita:
Empezado por movorack Ver Mensaje
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.UseFieldGetText := true;
      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
__________________
BlueSteel

Última edición por marcoszorrilla fecha: 07-02-2008 a las 15:16:40. Razón: Etiquetas Delphi
Responder Con Cita