Personalizar exportacion a excel

[delphi.com.ar]

Como te comenté en el mensaje personal, por concepción estos componentes son sencillos y no tienen un juego grande de propiedades. Podes bajarte el código abierto del componente desde: http://www.torry.net/db/access/db_bd...expsuitsrc.zip y adaptarlo a tus necesidades. El código es sencillo, no hay ciencia alguna, y esta separada la clase que escribe el archivo de la que recorre los datos e inserta. Por lo que no creo que sea demasiado complejo para ti adaptarlo. Cualquier sugerencia o mejora será bienvenida!

Saludos!

[ilichhernandez]

Gracias , voy a revisar el fuente a ver si puedo modificar algunas cosillas, en caso de hacer modificaciones te lo comunicare....


Gracias.
Roberto Hernandez.

[xio]

Me he descargado el componente para exportar datos desde delphi. Lo he instalado, pero no se como hacerlo funcionar, podriais darme una pequeña indicacion de como hacerlo?

Mi aplicacion genera unos listados y lo que necesito es esa informacion poder exportarla, pero con formato, no se si con este componente se podria.

Soy bastante nueva en esto, espero que podais ayudarme.

Un saludo y gracias.

PD: Antes de postear por aqui he dado bastantes pasadas por el foro para ver que hay sobre este tema. Y no he encontrado nada que se acomode a lo que busco.

[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!

[xio]

Gracias por la respuesta, pero a lo que me referia de formato es de tamaño de letra, fuente, negrita, ....

No se si se podrá por eso pregunté.

[delphi.com.ar]

Empezado por xio

Gracias por la respuesta, pero a lo que me referia de formato es de tamaño de letra, fuente, negrita, ....

En ese caso es muy sencillo, puedes utilizar las propiedades Detail, Header, Title para definir en forma genérica los valores de las fuentes de cada "banda", luego puedes utilizar el evento OnGetDetailParams para cambiar los atributos de celdas particulares.

Saludos!

[xio]

Oki lo probaré, por que ahora mismo estoy con otro proyecto, cuando lo haga si tengo alguna duda te comentaré. Un saludo.

[ingabraham]

Empezado por delphi.com.ar

En ese caso es muy sencillo, puedes utilizar las propiedades Detail, Header, Title para definir en forma genérica los valores de las fuentes de cada "banda", luego puedes utilizar el evento OnGetDetailParams para cambiar los atributos de celdas particulares.

Saludos!

me podrias dar un ejemplo de como ponerle formato numerico con separadores de mil a determinada columna "valor_total"