楊老師課堂之Excel VBA 程序開發第七講自動備份

  課件下載 ：           

方式1：本節課件下載地址：鏈接: https://pan.baidu.com/s/1DhCDxiPRSQw2vjowgjWSRQ 密碼: x6pe

方式2：或點擊此處下載

效果圖：

代碼示例：

1. 在sheet1中選擇通用下拉列表中的WorkSheet  右側選擇BeforeSave，寫入下列代碼:

    注意：確保在你的電腦C盤下有個文件夾叫做“data”，沒有請建出來；

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ThisWorkbook.SaveCopyAs "c:\data\" & Format(Now(), "yyyymmddhhmmss") & ".xls"

End Sub