Ole控制Excel保存文件是出错！

Question

各位高手，我在用Ole方式控制EXCEL时其他方面都没出现件么问题可就在保存时出错了：
  var 
    ExcelApp: Variant;
begin
  ExcelApp:= CreateOleObject( 'Excel.Application' );
  ExcelApp.WorkBooks.Add;
  ExcelApp.WorkSheets[1].Activate;
  ....
  ExcelApp.SaveAs(Filename := SaveDialog1.FileName,
                      FileFormat:=xlNormal,
                      Password := '',
                      WriteResPassword := '',
                      ReadOnlyRecommended := False,
                      CreateBackup := False);end;
  在执行SaveAs语句时报错，提示为：Method 'SaveAS'not supported by automation object。
 

Answer 1

问题解决了，原来要这样才行
 ExcelApp.ActiveWorkBook.SaveAs(Filename := SaveDialog1.FileName,
                      FileFormat:=xlNormal,
                      Password := '',
                      WriteResPassword := '',
                      ReadOnlyRecommended := False,
                      CreateBackup := False);

Answer 2

不错，只有WorkBook对象才有SaveAs方法，Application对象只有SaveWorkSpace方法。

Answer 3

YukeDeng(玉柯) :
我使用的是Delphi  控件方法  
在Form中分别放入ExcelApplication,  ExcelWorkbook和ExcelWorksheet。   WorkBooks我是直接打开1个已有的，ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open ('D:\a.xls',EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0));
保存时用的ExcelWorkbook1.SaveAs( 'd:\a.xls'  ); 运行后出现蓝屏说是fatal错误  。