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

近日有關(guān)于怎么使用VBA代碼實現(xiàn)excel文檔每天自動備份的問題受到了很多網(wǎng)友們的關(guān)注，大多數(shù)網(wǎng)友都想要知道怎么使用VBA代碼實現(xiàn)excel文檔每天自動備份的具體情況，那么關(guān)于到怎么使用VBA代碼實現(xiàn)excel文檔每天自動備份的相關(guān)信息，小編也是在網(wǎng)上進行了一系列的信息，那么接下來就由小編來給大家分享下小編所收集到與怎么使用VBA代碼實現(xiàn)excel文檔每天自動備份相關(guān)的信息吧(以下內(nèi)容來自于網(wǎng)絡(luò)非小編所寫，如有侵權(quán)請與站長聯(lián)系刪除)

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

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

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

第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

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

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

第4步：在當前文件夾中，新建一個名為“備份”的文件夾。