网站首页 > 知识剖析 正文
Excel VBA 从入门到放弃系列:保存后自动备份工作簿
问题:
很多时候我们的Excel工作簿需要保存每次修改的版本。而如果采用手动方法备份,操作是比较繁琐的,没有自动化,效率较低,且对于懒人来讲,实在难以接受。那么问题来了,有没有自动保存的方法呢?
分析:
幸好Office / Excel有内置的VBA方便地编写一些小程序,来实现这样的操作。
解决方法:
简易步骤:
1. 将工作簿另存为xlsm格式(或者xls格式也可以)
2. 复制下面这段代码
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
With ThisWorkbook
sFileName = .Name
sFileShortName = Left(sFileName, InStrRev(sFileName, ".") - 1)
sFileExtName = Right(sFileName, Len(sFileName) - InStrRev(sFileName, "."))
.SaveCopyAs .Path & "\" & sFileShortName & Format(Now, "-yyyy-mm-dd-hhmmss.") & sFileExtName
End With
End Sub
3. 切换到你的Excel工作簿
4. 按下快捷键 Alt F11进入Visual Basic
5. 双击你的工作簿对应的VBAProject
6. 双击ThisWorkbook
7. 在右侧代码窗口粘贴
8. 保存工作簿
9. 查看工作簿所在文件夹,出现了带时间戳的备份文件了。
以后每次保存这个工作簿,就可以得到一个带日期时间的备份文件了。
对其它工作簿,只要重复上述步骤,也可以同样地自动备份。
猜你喜欢
- 2025-07-09 代码分享:Python和VB代码实现批量合并EXCEL数据,拿走不谢
- 2025-07-09 vba常用代码总结(excel vba常用代码175个实例解析)
- 2025-07-09 上传图片或附件到指定文件夹或共享文件夹的通用函数
- 2025-07-09 注意了!在VBA使用Dir函数的“隐秘陷阱”
- 2025-07-09 使用VBA合并多个Excel文件(用vba合并多个excel工作表)
- 2025-07-09 ExcelVBA函数:保存当前工作簿的临时副本
- 2025-07-09 Excel常用技能分享与探讨(5-宏与VBA简介 VBA-实用自定义过程)
- 2025-07-09 Excel常用技能分享与探讨(5-宏与VBA简介 VBA常用到的函数一)
- 2025-07-09 Word隐藏的自动备份功能!每次保存生成独立副本,防丢稿终极方案
- 2025-07-09 Excel VBA学习笔记:取文件夹中所有文件:DIR函数
- 最近发表
-
- 表格存储 SQL 查询多元索引(表格存储 sql 查询多元索引的方法)
- 数据库教程-SQL Server多条件模糊查询
- Twitch宣布放弃Flash并逐步转型至HTML5平台
- 移动平台最强播放器MX Player:终于支持安卓5.0了!
- win10 NFS+黑群晖远程加载管理Windows文件夹(读写NTFS格式+高清播放器)
- Android端VLC 3.3版本发布,重新设计播放器界面
- 不仅仅被苹果封杀!Youtube宣布迁移Flash
- 揭开网站背后的魔法:B/S系统原来这么简单!
- Adobe Animate (An) 2020网页设计软件下载和安装教程
- Adobe发布“巨量”安全更新:遏制Flash“祸害”Linux
- 标签列表
-
- xml (46)
- css animation (57)
- array_slice (60)
- htmlspecialchars (54)
- position: absolute (54)
- datediff函数 (47)
- array_pop (49)
- jsmap (52)
- toggleclass (43)
- console.time (63)
- .sql (41)
- ahref (40)
- js json.parse (59)
- html复选框 (60)
- css 透明 (44)
- css 颜色 (47)
- php replace (41)
- css nth-child (48)
- min-height (40)
- xml schema (44)
- css 最后一个元素 (46)
- location.origin (44)
- table border (49)
- html tr (40)
- video controls (49)