- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2011-11-29 09:52
| 只看該作者
回復 1# if208808 - Option Explicit
- Sub Ex() 'SaveCopyAs 將指定活頁簿的備份儲存到檔案，但不變更記憶體中已開啟的活頁簿。
- Dim F As String, M As String
- F = "D:\Test.xls"
- M = "另存新檔"
- If Dir(F) <> "" Then M = F & " 檔案已存!!! , 在否要取代它?"
- If MsgBox(M, vbYesNo) = vbYes Then Me.SaveCopyAs F
- End Sub
- Sub Ex1() 'SaveAs 將對活頁簿的變更儲存到其他檔案。
- 'SaveAs 沒有相同檔名,系統不會詢問.
- 'Application.DisplayAlerts = True '系統預設為 True 也可註解不用的
- '如執行巨集時 Microsoft Excel 顯示特定的警告和訊息則為 True
- On Error Resume Next
- Me.SaveAs "D:\Test.xls"
- End Sub
|
|
發表於 2011-11-29 09:11
| 
