【求助】EXCEL自動存備份檔檔名問題

[李強]

大家好
我是PCZONE的新人 無意間發現這個園地 在這裡學會一些增益集的設計方法 受益匪淺 目前在設計BeforeSave時遇到瓶頸 我需要的功能不只能自動備份到指定的資料夾.為避免被下一次同檔名的備份覆蓋.其檔名能"自動"依據日期或一些指定的方式來產生.不知有無此依功能.煩請線上前輩指點 謝謝

[pinget]

'以下程式碼是另存新檔到c:\根目錄下
'用當天的日期作檔名
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

[jnchen19]

感謝pinget大大 提供的程式片段
這樣我就可以剪貼來修改已錄製好的巨集
以前巨集run到一半都要手動輸入檔名再儲存的說
現在全部自動化了,日報,月報,季報--真的一指搞定
謝謝pinget,謝謝pczone

[jnchen19]

在上Excel VBA的課時 TRY出來一個簡單方法
Sub Macro1()
Macro1 Macro
SuperXP 在 2006/11/29 錄製的巨集

ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\" & Date$ & ".xls"
End Sub
注意就是這個" & DATE$ & "產生自動以日期為檔名
這樣RUN 日報表就不會檔案覆蓋了

[沙拉油]

參考 http://blog.xuite.net/saladoil/excel/7055499