如何每天自动备份Excel文件
1、启用宏。文件-选项-信任中心-信任中心设置-宏设置
2、修改文件类型为支持宏的文件类型。如XLSM,XLSB。大家可以新建一个文件在另存为选择保存类型。本文以“示例.xlsb”为例。
3、打开代码编辑窗口。按住Alt+F11,然后点击Microsoftexcel对象下的Thisworkbook
4、拷入程序代码:(本文以备份在"D:\Onedrive\BACKUP\&孥恶膈茯quot;为例,大家可以相应的更改为自己需要的)Pr足毂忍珩ivate Sub Workbook_Open()Dim FileName As StringWith ThisWorkbookFileName = Left(.Name, InStrRev(.Name, ".") - 1) & "_" & Format(Date, "YYYYMMDD") & Right(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)End WithIf Dir("D:\Onedrive\BACKUP\" & FileName) = "" Then ThisWorkbook.SaveCopyAs "D:\Onedrive\BACKUP\" & FileNameEnd IfEnd Sub
5、大功告成。文件会在每天打开时自动备份一次了,并且会以日期作为后缀名。
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:37
阅读量:82
阅读量:34
阅读量:53
阅读量:20