返回列表下一主題上一主題發帖

[發問] 備份文件巨集問題

mycmyc

中學生 Rank: 2

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-19 21:38 | 只看該作者

[發問] 備份文件巨集問題

本帖最後由 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 解決儲存母檔問題

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-10-20 07:48 | 只看該作者

回復 1# mycmyc
VBA問題請到程式區

Sub Ex()
Dim FS As Object, Tmpn1, Tmpn2
If MsgBox("你確定要存檔嗎 ?", vbYesNo + vbInformation) = vbYes Then
Set FS = CreateObject("Scripting.FileSystemObject")
Tmpn1 = "C:\" & Format(Now, "yyyymmdd_s ") & ".xls" '用今天的日期當作另存新檔的檔名
Tmpn2 = "E:\macro-test\test2\" & Format(Now, "yyyymmdd_s ") & "B.xls" '用今天的日期當作另存新檔的檔名
ActiveWorkbook.Save
FS.CopyFile ActiveWorkbook.FullName, Tmpn1
FS.CopyFile ActiveWorkbook.FullName, Tmpn2
End If
End Sub