怎么使用VBA代碼實現excel文檔每天自動備份
實現這樣“高大尚”的功能現有的excel功能無法完成,還得VBA編程的方法。當然,作為不懂VBA代碼的你,只需要按下面步驟復制粘貼即可。
第1 步:打開要備份的excel文件,在工作表標簽上右鍵單擊,點擊“查看代碼”。
第2步 在打開一個visualbasic窗口,雙擊工程窗口中的thisworkbook,把下面的代碼粘貼到右側的窗口中。
代碼:
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步:在當前文件夾中,新建一個名為“備份”的文件夾。