[lmikle]

Не так - код надо в посте правильно оформлять.

По поводу кода. У меня вот это работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  xlWorkbookDefault = 51;
var
  Excel : OleVariant;
begin
  Excel := CreateOleObject('EXCEL.Application');
  Excel.Application.Workbooks.Add;
  Excel.Application.Workbooks[1].SaveAs('C:\Users\Michael Nilov\Documents\test.xls', xlWorkbookDefault);
  Excel.Application.Quit;
  Excel := null;
end;

Delphi 7, Office 2003 Rus