Error texto y decimales al exportar a excel.

[[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.UseFieldGetText := true;
      DBGridExcelExport.Grid := DBUltimGrid;
      ProgressDialog.Position := 0;
      ProgressDialog.Max := DBUltimGrid.DataSource.DataSet.RecordCount-1;
      ProgressDialog.Show;
      DBGridExcelExport.ExportGrid;
      ProgressDialog.Hide;
    end;
  end;

[[poliburro]]

de hecho es más sencillo de lo que parece, por que no ejecutas la consulta en un Query concatenando la comilla al campo que deseas sea considerado como cadena. Luego ese query lo asignas al grid o a un nuevo grid, exportas cierras el query y santa solución batman.

.

suerte

[[movorack]]

lo intentaré ahorita mismo...

al rato te cuento..

[[movorack]]

oiga si...

ya hizo todo correcto, en el archivo excel ya estan los codigos en formato de texto...

modifique la vista a la que consulto, concatene la comilla en el campo.

Select .... ''''||campo .... y voila...

de verdad poliburro, muchas gracias.

[[BlueSteel]]

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.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

[[movorack]]

hi BlueSteel

Ahorita mismo estoy de viaje y no estoy cerca de mi pc y no te podria decir que paleta es exactamente. Pero el ProgressDialog es parte de la JEDI VCL solo bajate la JEDI y allí está.

espero te ayude.

Saludos.

[[BlueSteel]]

Gracias...

Ya lo solucione...estaba en la Paleta Jv Dialogs....

Ahora solo falta que me muestra la barra con el proceso de traspasando...es decir, me muestra la barra, pero no hay un progreso en la barra.. ( no se si me explique bien...), quizas es por la cantidad de registros que no se alcanza a notar.. pero en fin...

gracias