使用VBA代碼實(shí)現(xiàn)excel文檔每天自動(dòng)備份（VBA自動(dòng)保存）

使用VBA代碼實(shí)現(xiàn)excel文檔每天自動(dòng)備份（VBA自動(dòng)保存）

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

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

第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)擊啟用。

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

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。