[Ultras]

Код:

var
e_app,worksht: Variant;
f_name: string;
begin
  f_name := 'c:\123.xls';
  e_app := CreateOleObject('Excel.Application');
  e_app.DisplayAlerts := False;
  e_app.WorkBooks.Open(f_name);
  worksht := e_app.WorkBooks[1].WorkSheets[1];
  worksht.Cells[1,1] := '123'; //пример
  worksht.SaveAs('c:\out.xls');
  e_app.Quit;
end;

вот так я когда то делал, попробуйте.