如何實(shí)現(xiàn)excel文檔每天自動(dòng)備份？

第1 步：打開要備份的excel文件，在工作表標(biāo)簽上右鍵單擊，點(diǎn)擊“查看代碼”。

第2步 在打開一個(gè)visualbasic窗口，雙擊工程窗口中的thisworkbook，把下面的代碼粘貼到右側(cè)的窗口中。

代碼：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

Dim mypath As String, fname As String

fname = Format(Date, "yymmdd") & ThisWorkbook.Name

mypath = ThisWorkbook.Path & "/備份/"

ThisWorkbook.SaveCopyAs mypath & fname

End Sub

第3步：在Visual basic窗口中點(diǎn)擊保存命令，會(huì)彈出另存啟用宏的提示，這時(shí)點(diǎn)擊“否”按鈕。

在彈出的保存窗口中，選取保存類型為“Excel 啟用宏的工作簿”。

第4步：在當(dāng)前文件夾中，新建一個(gè)名為“備份”的文件夾。

設(shè)置完成。

當(dāng)關(guān)閉當(dāng)前文件后，在備份文件夾中會(huì)自動(dòng)產(chǎn)生一個(gè) 日期 + 文件名的excel備份文件。

當(dāng)?shù)?天再次關(guān)閉文件時(shí)，同樣會(huì)再產(chǎn)生一個(gè)當(dāng)天的備份文件。

注意：

1、以后使用的文件應(yīng)是xlsm格式的文件。

2、當(dāng)打開文件時(shí)，如果提示“啟用內(nèi)容”就點(diǎn)擊啟用。