返回列表 上一主題 發帖

[發問] 另存時直接覆蓋舊檔

[發問] 另存時直接覆蓋舊檔

最近接手的報表比較多
而且儲存的位置又都不一樣
所以我在檔案裡面寫了一段自動儲存跟自動另存
可是另存總是會跑出是否要覆蓋舊檔
請問各位大大要如何修改讓Excel另存的時候自動覆蓋舊檔
不再跑出提示

  ActiveWorkbook.Save
   
    ChDir "K:\B.各組資料 (Team inform)\C.包裝組 (Packing group)\A.個人資料夾 (Personal folder)\Joe.Wu\支援生管\急件"
    ActiveWorkbook.SaveAs filename:= _
        "K:\B.各組資料 (Team inform)\C.包裝組 (Packing group)\A.個人資料夾 (Personal folder)\Joe.Wu\支援生管\急件\急件管理_v1_6.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


回復 1# cowww


     Application.DisplayAlerts = False

'存檔

    Application.DisplayAlerts = True

TOP

回復 2# quickfixer

成功了
非常感謝quickfixer大大的指導

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題