麻辣家族討論版版 » Excelㄧ般區 » 備份文件巨集問題

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

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

中學生 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 解決儲存母檔問題

樓主熱帖

收藏

HI

超級版主 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

複製代碼

中學生 Rank: 2

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

3^#

發表於 2010-10-20 09:57 | 只看該作者

回復 2# GBKEE
  謝謝訊息已經解決
  但 ActiveWorkbook.Save  儲存都沒有問題，但是每次都會自動開啟Excel 檔案
   有沒有別的儲存方式可以自動存檔不會開啟 Excel 檔案!!!
   就是要留在主檔(母檔)

HI

超級版主 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兔年全勤獎章

4^#

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

回復 3# mycmyc
每次都會自動開啟Excel 檔案是完全依據我的程式嗎? 不會啊!
附上程式碼來看看?

中學生 Rank: 2

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

5^#

發表於 2010-10-20 12:13 | 只看該作者

回復 4# GBKEE

對不起剛剛在修正後如你程式ok
請問你用那個控制存檔後還能在主檔上
FS.CopyFile ActiveWorkbook.FullName, Tmpn2
這行嗎?

HI

超級版主 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兔年全勤獎章

6^#

發表於 2010-10-20 13:33 | 只看該作者

回復 5# mycmyc
對的
   ActiveWorkbook.Save   '母檔需先做存檔的動作
   FS.CopyFile ActiveWorkbook.FullName, Tmpn1
   FS.CopyFile ActiveWorkbook.FullName, Tmpn2

中學生 Rank: 2

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

7^#

發表於 2010-10-20 18:27 | 只看該作者

回復 6# GBKEE
謝謝你了解

HI

靜思自在 : 天上最美是星星，人生最美是溫情。

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