本帖最後由 mycmyc 於 2010-10-19 22:33 編輯
請問 我模仿他人 做一個 備份巨集
Sub backup_file()
'把檔案作完整的備份在另外的路徑
TmpN1 = Format(Date, "yyyymmdd") '用今天的日期當作另存新檔的檔名
TmpN2 = Format(Time, "s") '用當時的秒數當取檔名的條件
ActiveWorkbook.SaveAs Filename:="C:\" & TmpN1 & "_" & TmpN2 & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
'備份檔案的路徑及檔名
ActiveWorkbook.SaveAs Filename:="E:\macro-test\test2\" & TmpN1 & "_" & TmpN2 & "B" & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Workbooks.Open "C:\" & TmpN1 & "_" & TmpN2 & ".xls"
Workbooks(TmpN1 & "_" & TmpN2 & "B" & ".xls").Close SaveChanges:=False
End Sub
也做一個按鍵 我想按後 能出現一個信息"你確定要存檔嗎 " 有 "是" "否"
這備份檔 很怪 他會儲存到備份檔 但母檔 卻沒儲存到 便跳到 備份檔
能幫我修正 母檔也儲存 並備份 並維持母檔開啟狀態 嗎
 備份.rar (13.85 KB)
ActiveWorkbook.Save 解決 儲存母檔問題 |
發表於 2010-10-19 21:38
| 
