que tal Koiji espero te sirva este ejemplo:
Código Delphi
[-]ExcelApplication1.Connect;
ExcelApplication1.Visible[0] := false;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
excelworkbook1.Author[0]:='Sistema Informatico XXXXXXXX';
ExcelWorksheet1.ConnectTo(ExcelApplication1.Sheets[1] as _WorkSheet);
excelworksheet1.Range['A1','d1'].MergeCells :=true;
excelworksheet1.Range['A3','d3'].MergeCells :=true;
excelworksheet1.Range['A1','c3'].HorizontalAlignment:=xlHAlignCenter ;
excelworksheet1.Range['b4','b5'].HorizontalAlignment:=xlHAlignCenter ;
excelworksheet1.Range['A9','c9'].HorizontalAlignment:=xlHAlignCenter ;
excelworksheet1.Range['c4','d5'].HorizontalAlignment:=xlHAlignRight;
excelworksheet1.Range['B1','B1'].ColumnWidth :=30;
excelworksheet1.Range['c1','c1'].ColumnWidth :=80;
excelworksheet1.cells.item[1,1].value2:='XXXXXXXXXXXXX SA DE CV';
excelworksheet1.cells.item[3,1].value2:='Lista de Productos para Verificar Existencia';
excelworksheet1.cells.item[4,3].value2:= 'Fecha:';
excelworksheet1.cells.item[4,4].formula:= date();
excelworksheet1.cells.item[5,3].value2:= 'Folio Solicitud:';
excelworksheet1.cells.item[5,4].value2:= folio;
excelworksheet1.cells.item[7,1].value2:= 'Proveedor:';
excelworksheet1.cells.item[7,2].value2:= dblckprov.text;
excelworksheet1.cells.item[9,1].value2:='Cantidad';
excelworksheet1.cells.item[9,2].value2:='Código';
excelworksheet1.cells.item[9,3].value2:='Producto';
excelworksheet1.cells.item[9,4].value2:='Existencia';
excelworksheet1.Range['A9','D9'].interior.Color:=33023 ;
y:=10;
x:=1;
while not(dm.dstemporal.Eof) do
begin
EXCELWORKSHEET1.Cells.ITEM[y,1].VALUE2:= x;
EXCELWORKSHEET1.Cells.ITEM[y,1].VALUE2:= dm.dstemporalcantidad.value;
EXCELWORKSHEET1.Cells.ITEM[y,2].VALUE2:= dm.dstemporalCLAVE.Value;
EXCELWORKSHEET1.Cells.ITEM[y,3].VALUE2:= dm.dstemporalDESCRIPCION.Value;
inc(y);
inc(x);
dm.dstemporal.Next;
end;
excelapplication1.ActiveWorkbook.SaveAs(ruta +'.xlsx',emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,1,emptyparam,emptyparam,emptyparam,e mptyparam,emptyparam,0);
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
ExcelApplication1.Free;
espero te sirva
p.d. Por cierto no sabia en cual de los tres mensajes contestar???????