杨老师课堂之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本文参与 腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。
原始发表：2018年05月11日，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
