Excel保存问题！！

Question

需要将打开的EXCEL在修改后不用提示的直接保存！
搜索了所有的网站及本站，均未发现能提到点上的解决答案，
附一段代码：
    try
      exlApp := CreateOleObject('Excel.Application');
      exlSht := CreateOleObject('Excel.Sheet');
    except
      on Exception do raise exception.Create('无法打开Excel文件，请确认已经安装Execl')
    end;
  exlApp.DisplayAlerts := false;
  exlApp.Visible := false;
  FileSetAttr(ExcelFileName,FileGetAttr(ExcelFileName) and not $00000001);  exlApp.workbooks.open(ExcelFileName);  //打开指定的EXCEL
  exlSht := exlApp.worksheets[1];  ...... //写入CELLS操作　//开始保存关闭
  //--保存该如何写入？需要将文件名也保存在硬盘上同一目录下的同一文件名：ExcelFileName
  ......
  //保存完毕
　 exlApp.workbooks.close;
   exlApp.quit;
   exlApp.DisplayAlerts := true;
   exlSht := Unassigned;
   exlApp := Unassigned;　保存该如何写？  期待答案

Answer 1

比如：
var
  s:string;
s:=Exlapp.Cells[1,1]

Answer 2

Exlapp.ActiveWorkBook.Save;
或
Exlapp.ActiveWorkBook.Saveas('d:\xx.xls');

Answer 3

若用exlapp.SaveWorkspace(ExcelFileName)保存，那会提示已经打开相同的文件。
不接受删除文件，再保存的办法，这不是一种良好的设计。
请各位帮忙，写出保存ExcelFileName文件的代码,Tks!

Answer 4

写规范的excel是不需要用com组件的。http://blog.csdn.net/jinjazz/archive/2008/08/01/2753869.aspx
http://blog.csdn.net/jinjazz/archive/2008/08/04/2766203.aspx

Answer 5

exlApp.workbooks.SaveCopyAs(application.ExeName);

Answer 6

Exlapp.ActiveWorkBook.Save; 是我需要的答案！
感谢参与者，若能提供EXCEL或WORD相关的操作文档资料，则更佳。
之所以，不知道有此方法，是因为找不到此方面的说明使用文档。
即D7中没有此方面的HELP资料文档。
结贴。