怎样跳过系统提示是否覆盖当前文件的信息而直接将文件覆盖掉源文件并存盘?(50分)

  • 主题发起人 主题发起人 zlmark
  • 开始时间 开始时间
Z

zlmark

Unregistered / Unconfirmed
GUEST, unregistred user!
我在程序中打开了一个Excel文件并且做了修改,每次存盘时系统总是提示是否覆盖源文件,我想
跳过这一步,程序应该怎样写?
 
使用下面的函数:
BOOL CopyFile(
LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
最后一个参数为False即可
 
我是在打开一个excel文件修改之后再存盘时想避开系统提示,这时应该怎么办?
 
CopyFile(pcharFileName1,pcharFileName2,True);
That's ok.
 
Application.AlertBeforeOverwriting =False
 
Application.AlertBeforeOverwriting =False
找不到这个属性啊,编译时系统报错。
 
你是不是在程序用OLE打开了Excel呢,如果是就可以:
var ExcelApp:Variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.AlertBeforeOverwriting:=False ;
end;

 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部