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