杨老师课堂之Excel VBA 程序开发第七讲自动备份

  1. 云栖社区>
  2. 博客>
  3. 正文

杨老师课堂之Excel VBA 程序开发第七讲自动备份

杨校 2018-05-11 15:35:23 浏览299
展开阅读全文
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/kese7952/article/details/80282358

   课件下载 :                                    

方式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

分割线 
作者: 杨校

出处: https://blog.csdn.net/kese7952

分享是快乐的,也见证了个人成长历程,文章大多都是工作经验总结以及平时学习积累,基于自身认知不足之处在所难免,也请大家指正,共同进步。

本文版权归作者所有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出, 如有问题, 可邮件(397583050@qq.com)咨询。


网友评论

登录后评论
0/500
评论
杨校
+ 关注