objExcel.Application.save的问题

作者：金字塔来源：cxh99.com 发布时间：2015年01月02日

咨询内容： 代码中如果加入
objExcel.Application.save
那么每次运行必定出现这个问题:
此主题相关图片如下：2014-09-14_111536.jpg

我去找了一下(显示隐藏文件,系统文件),查不到这个文件.如果不加这一句,一切正常.请问什么缘故?
金字塔客服： Sub cs() On Error Resume Next filestr="E:\滑点记录.xlsm" tname="" filename=filestr do filename=right(filename,len(filename)-instr(filename,"\")) loop while instr(filename,"\")>0 '取得文件名 Set objExcel = GetObject(,"Excel.Application") if Err.number=0 then Set objExcel = GetObject(filestr) else Set objExcel = CreateObject("Excel.Application") Set objExcel = GetObject(filestr) Err.clear end if objExcel.Parent.Windows(filename).Activate objExcel.Application.Visible = true objExcel.Application.Sheets("Sheet1").range("a2")="测试4" objExcel.Application.save 'objExcel.Application.quit
End Sub
用户回复： 加上objExcel.Application.displayalert=false就不会提示警告提示了！