如何每天自动备份Excel文件？

1、启用宏。

文件-选项-信任中心-信任中心设置-宏设置

2、修改文件类型为支持宏的文件类型。如XLSM，XLSB。

大家可以新建一个文件在另存为选择保存类型。

本文以“示例.xlsb”为例。

3、打开代码编辑窗口。

按住Alt+F11，然后点击Microsoft excel对象下的Thisworkbook

4、拷入程序代码：

（本文以备份在"D:\Onedrive\BACKUP\"为例，大家可以相应的更改为自己需要的）

Private Sub Workbook_Open()

Dim FileName As String

With ThisWorkbook

FileName = Left(.Name, InStrRev(.Name, ".") - 1) & "_" & Format(Date, "YYYYMMDD") & Right(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)

End With

If Dir("D:\Onedrive\BACKUP\" & FileName) = "" Then

    ThisWorkbook.SaveCopyAs "D:\Onedrive\BACKUP\" & FileName

End If

End Sub

5、大功告成。

文件会在每天打开时自动备份一次了，并且会以日期作为后缀名。