【求助】EXCEL自動存備份檔檔名問題- PCZONE 討論區

用當天的日期作檔名. Sub backup_file() ... TmpN1 = Format(Date, "yyyymmdd") '用今天的日期當作另存新檔的檔名 ... 在上Excel VBA的課時TRY出來一個簡單方法  PCZONE討論區>▲--電腦軟體討論區>--OFFICE相關軟體討論版 【求助】EXCEL自動存備份檔檔名問題 會員名稱記住密碼密碼聯絡我們通知--OFFICE相關軟體討論版Word、Excel、PowerPoint、Access、Outlook、FrontPage或OfficeXP等的問題解答與經驗分享李強會員【求助】EXCEL自動存備份檔檔名問題大家好 我是PCZONE的新人無意間發現這個園地在這裡學會一些增益集的設計方法受益匪淺目前在設計BeforeSave時遇到瓶頸我需要的功能不只能自動備份到指定的資料夾.為避免被下一次同檔名的備份覆蓋.其檔名能"自動"依據日期或一些指定的方式來產生.不知有無此依功能.煩請線上前輩指點謝謝回覆pinget會員'以下程式碼是另存新檔到c:\根目錄下 '用當天的日期作檔名 Subbackup_file() '把檔案作完整的備份在另外的路徑 TmpN1=Format(Date,"yyyymmdd")'用今天的日期當作另存新檔的檔名 TmpN2=Format(Time,"s")'用當時的秒數當取檔名的條件 ActiveWorkbook.SaveAsFilename:="C:\"&TmpN1&"_"&TmpN2&".xls",FileFormat_ :=xlNormal,Password:="",WriteResPassword:="",ReadOnlyRecommended:=_ False,CreateBackup:=False '備份檔案的路徑及檔名 ActiveWorkbook.SaveAsFilename:="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").CloseSaveChanges:=False EndSub回覆jnchen19有殼族感謝pinget大大提供的程式片段 這樣我就可以剪貼來修改已錄製好的巨集 以前巨集run到一半都要手動輸入檔名再儲存的說 現在全部自動化了,日報,月報,季報--真的一指搞定 謝謝pinget,謝謝pczone回覆jnchen19有殼族回覆:【求助】EXCEL自動存備份檔檔名問題在上ExcelVBA的課時TRY出來一個簡單方法 SubMacro1() Macro1Macro SuperXP在2006/11/29錄製的巨集 ChDir"D:\" ActiveWorkbook.SaveAsFilename:="D:\"&Date$&".xls" EndSub 注意就是這個"&DATE$&"產生自動以日期為檔名 這樣RUN日報表就不會檔案覆蓋了回覆沙拉油台灣水電工回覆:【求助】EXCEL自動存備份檔檔名問題參考http://blog.xuite.net/saladoil/excel/7055499回覆主題工具顯示可列印版本郵寄本頁給好友 XML  RSS2.0  RSS 本站使用vBulletin合法版權程式站務信箱:[email protected]本論壇所有文章僅代表留言者個人意見，並不代表本站之立場，討論區以「即時留言」方式運作，故無法完全監察所有即時留言，若您發現文章可能有異議，請email:[email protected]處理。