delphi 控制 excel 存盘(50分)

var
xlApp,xlBook,xlSheet: variant;
begin
xlApp := CreateOleObject('Excel.Application');
xlApp.Visible := True;
xlBook := xlApp.Workbooks.Add;
xlSheet := xlBook.Worksheets['sheet1'];
xlApp.saveas('d:/xxx.xls');
end;
在执行 xlApp.saveas('d:/xxx.xls'); 出错 ;'Method saveas not supported by automation object'

x1Book.saveas('d:/xxx.xls');

多人接受答案了。