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

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

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

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

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

1^# 跳轉到 »

發表於 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: 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 10:11 | 顯示全部帖子

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

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

3^#

發表於 2010-10-20 13:33 | 顯示全部帖子

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

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。

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