在delphi中调用Excel怎样让Excel自动保存并关闭而不提示让用户决定是否保存? ( 积分: 100 )

  • 主题发起人 主题发起人 laurellee
  • 开始时间 开始时间
L

laurellee

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi中调用Excel并写数据入Excel,我想不让用户知道我使用了Excel做中介,我想让Excel自动保存并关闭,但是现在我用save没有用,用saveas则系统会提示用户是否保存(因为需要覆盖原来的)!怎样可以让Excel提示保存信息而自动保存了我新写入的数据呢?
 
在delphi中调用Excel并写数据入Excel,我想不让用户知道我使用了Excel做中介,我想让Excel自动保存并关闭,但是现在我用save没有用,用saveas则系统会提示用户是否保存(因为需要覆盖原来的)!怎样可以让Excel提示保存信息而自动保存了我新写入的数据呢?
 
如果因为需要覆盖才会弹出提示框的话,你可以先判断文件是否存在,在的话,把他重名成另外的文件做成一个备份文件,当你保存成功之后就把他删除,保存失败就复原。
 
Easy!
XlsApp.DisplayAlerts := $00000000;
 
Excel.DisplayAlerts := $00000000;
怎么没有用啊?
 
在调用Save或者SaveAs之前先调用下面一行:
Excel.DisplayAlerts := false;
并且记得在finally子句中恢复
Excel.DisplayAlerts := true;
绝对有用的,我就是这样做的。
 
或许你可看看这个贴子中所用到的方式???
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3109378
 
如果用OLE方式操作EXECL,直接用OleContainer.SaveAsDocument命令则不会有任何提示。
 
后退
顶部