技術(shù)員聯(lián)盟提供win764位系統(tǒng)下載,win10,win7,xp,裝機純凈版,64位旗艦版,綠色軟件,免費軟件下載基地!

當(dāng)前位置:主頁 > 教程 > 軟件教程 > Excel教程 >

如何實現(xiàn)excel每天自動備份

來源:技術(shù)員聯(lián)盟┆發(fā)布時間:2018-01-13 18:13┆點擊:

  不少同學(xué)都擔(dān)心:excel誤刪除了怎么辦?excel損壞了怎么辦?...其實如果excel重要的文件如果每天能備份一份,再也不用擔(dān)心文件丟失和損壞了。本文詳細講述使用VBA代碼實現(xiàn)excel文檔每天自動備份的方法。

  實現(xiàn)這樣“高大尚”的功能現(xiàn)有的excel功能無法完成,還得VBA編程的方法。當(dāng)然,作為不懂VBA代碼的你,只需要按下面步驟復(fù)制粘貼即可。

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

 如何實現(xiàn)excel每天自動備份  三聯(lián)

  第2步 在打開一個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

使用VBA代碼實現(xiàn)excel文檔每天自動備份

  第3步:在Visual basic窗口中點擊保存命令,會彈出另存啟用宏的提示,這時點擊“否”按鈕。

使用VBA代碼實現(xiàn)excel文檔每天自動備份

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

使用VBA代碼實現(xiàn)excel文檔每天自動備份

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

使用VBA代碼實現(xiàn)excel文檔每天自動備份

  設(shè)置完成。

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

使用VBA代碼實現(xiàn)excel文檔每天自動備份

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

使用VBA代碼實現(xiàn)excel文檔每天自動備份

  注意:

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

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

使用VBA代碼實現(xiàn)excel文檔每天自動備份

  補充:excel由于支持強大的vba開發(fā)語言,使得只要我們能想到的功能,都可以用它來實現(xiàn)。如果你想成為Excel高手,建議學(xué)習(xí)VBA編程。