相同檔案覆蓋語法

if208808

想請問一下，如何用EXCEL VBA 寫存檔時是否取代的語法或MsgBOX???

GBKEE

回復 1# if208808

1. Option Explicit
   
2. Sub Ex()  'SaveCopyAs 將指定活頁簿的備份儲存到檔案，但不變更記憶體中已開啟的活頁簿。
   
3.     Dim F As String, M As String
   
4.     F = "D:\Test.xls"
   
5.     M = "另存新檔"
   
6.     If Dir(F) <> "" Then M = F & " 檔案已存!!! , 在否要取代它?"
   
7.     If MsgBox(M, vbYesNo) = vbYes Then Me.SaveCopyAs F
   
8. End Sub
   
9. Sub Ex1() 'SaveAs  將對活頁簿的變更儲存到其他檔案。
   
10.     'SaveAs  沒有相同檔名,系統不會詢問.
    
11.     'Application.DisplayAlerts = True   '系統預設為 True 也可註解不用的
    
12.     '如執行巨集時 Microsoft Excel 顯示特定的警告和訊息則為 True
    
13.     On Error Resume Next
    
14.     Me.SaveAs "D:\Test.xls"
    
15. End Sub

複製代碼