Personalizar exportacion a excel

[ilichhernandez]

Hola amigos, tengo una grid y los datos que se ven necesito exportarlos a excel, pues bien, he ocupado el componente DataToXls que baje desde Delphi.com.ar y el reporte en realidad es bien facil

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
DataToXls1.Title.Text := 'Prueba de Exportacion para excel';
DataToXls1.SaveToFile('c:\prueba.xls');
end;

De esta manera exporto todos los datos y todo bien hasta ahi, el problema es que necesito insertar al comienzo de la hoja de excel un par de filas para ingresar "de alguna manera" informacion de 2 o 3 variables que necesito se muestren junto a los datos, si alguien supiera como se hace o donde conseguir info lo agradeceria, busque en el foro, en la doc que trae el componente y la verdad es que no hay mucha info......
Primera vez que exporto a excel desde delphi y la verdad estoy un poco confundido......

Gracias de antemanos para todos aquellos que se tomen un tiempo ....
Atentamente
Roberto Hernandez.

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

[antonmor]

intenta esto , esta en formato csv pero ya que abras el archivo lo puedes guardar con extencion xls

from *
INTO OUTFILE 'c:\\c1.csv'
FIELDS TERMINATED BY ',' OPTIONALLY ENCLOSED BY '"'
LINES TERMINATED BY '\n'
FROM tabla nt