objExcel.Application.save的問題 [金字塔]
- 咨詢內(nèi)容：
代碼中如果加入
objExcel.Application.save
那么每次運行必定出現(xiàn)這個問題:
此主題相關(guān)圖片如下：2014-09-14_111536.jpg
我去找了一下(顯示隱藏文件,系統(tǒng)文件),查不到這個文件.如果不加這一句,一切正常.請問什么緣故?
- 金字塔客服：
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 - 用戶回復(fù)： 加上objExcel.Application.displayalert=false就不會提示警告提示了！
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫！（不貴！點擊查看價格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會員登錄/注冊