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就不會提示警告提示了！
打印本文
關閉窗口