Como se crea un fichero XLS desde Delphi y paleta Servers

[Anabel]

Hola

Para enviar información a una plantilla ya creada de Excel, utiliza la sugerencia que te da delphi.com.ar

"Uses
... Excel97, ComObj...;
...
Var
Excel : Variant;
Archivo : String;
...
//***** Creamos el Objeto Ole *****//
try
Excel := CreateOleObject('Excel.Application');
except
Excel.Quit;
showmessage('No se pudo crear el Objecto Excel.');
raise;
end;

//***** Asignamos el archivo a abrir *****//
Archivo := 'c:\Hola.xls'
Excel.Workbooks.Open(Archivo);
..."

Si observas, para el ejemplo anterior es necesario que ya exista el fichero y en el posiblemente una plantilla en la cual deseas caiga la información.

Cómo enviar la información?

ExcelWorkSheet1.Workbooks.Open(Archivo);

ExcelWorkSheet1.Range['A1','K90'].Font.Size := 8;
ExcelWorkSheet1.Range['A1','K90'].Font.Bold := False;
ExcelWorkSheet1.Range['A1','K90'].Font.Name := 'Arial';

ExcelWorkSheet1.Cells[3,3].Font.Bold:=true;
ExcelWorkSheet1.Cells[3,3].Font.Size := 10;
ExcelWorkSheet1.Cells[3,3].Font.Underline := 2;
ExcelWorkSheet1.Cells[3,3].Value := 'Análisis de Presupuesto';
ExcelWorkSheet1.Cells[7,6].Value := 'Tipo de Proyecto:';
ExcelWorkSheet1.Cells[7,6].Range['C13','I13'].Value := VarArrayOf(['Clave','Elemento','Sección','Cantidad','Longitud','Precio','Importe']);

Primero especificas el número de hoja, después el 'Range[]' o 'Cells[]', en el ejemplo de arriba vienen algunas líneas también para dar formato a las celdas que quiza no utilices porque tu plantilla ya existe, pero no esta de mas saberlas.

Espero te ayude an algo lo anterior

Saludos
Belén

Nota: Alguien podría decirme como le hacen para citar lo que otro integrante comento. Gracias!!