Objeto ExcelExport

[orfeo]

Este codigo lo saque de dbf2Excel escrito por JORGE FERRA(JorgeF) PARA "CLUB DELPHI"

es una aplicacion que toma archivos dbf y los exporta a excel, calcula la cantidad de hojas necesarias.

el armo una funcion que toma un dataset o grilla no recuerdo y genera el excel,
pero es facil adaptarla.

espero que te serva, el programa debe estar en la parte de recursos.

   CH: cantidad de hojas nesesarias para N registros

//LA PRIMER HOJA SE CREA AL CONECTAR EL "ExcelBook"
	ExcelBook.ConnectTo(ExcelApp.Workbooks.Add(1, Lcid));
	if CH > 1 then //CANTIDAD DE HOJAS
		begin
//A CONTINUACION SE GENERAN EL RESTO DE HOJAS NECESARIAS(CH-1) Y SE LES DA
//UN NOMBRE A CADA UNA:
			ExcelBook.Worksheets.Add(NULL, NULL, (CH - 1), NULL, Lcid);
			for I:= 1 to CH do //SE DA NOMBRE A CADA HOJA
				begin
					WS.ConnectTo(ExcelBook.Worksheets[i] as _Worksheet);
					WS.Name:= Tit + '_' + IntToStr(I);
				end;
		end;

	WS.ConnectTo(ExcelBook.Worksheets[1] as _Worksheet);
	WS.Activate(Lcid);