网站首页 > 知识剖析 正文
在实际工作中,需要备份多个副本,以便于【恢复为前期文档】,或者【保留修订痕迹】。
用以下函数,可以<快速>地在桌面(也可以自定义为特定文件夹、可以选择的文件夹)上保存多个副本。
Sub 保存当前工作簿的临时副本()
Dim wb As Workbook
Dim filePath As String
Dim baseName As String
Dim newFileName As String
Dim folderPath As String
Dim timeStamp As String
Dim fileExt As String
Set wb = ActiveWorkbook
baseName = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
fileExt = Mid(wb.Name, InStrRev(wb.Name, "."))
folderPath = wb.Path
timeStamp = Format(Now(), "yyyyMMddHHmmss")
' 当前文件名 + 时间戳 + 原始文件的后缀
newFileName = baseName & " 临时副本 " & timeStamp & fileExt
filePath = folderPath & "\" & newFileName
wb.SaveCopyAs filePath
MsgBox "副本已成功保存为:" & vbCrLf & filePath, vbInformation, "大生"
End Sub
猜你喜欢
- 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 Excel常用技能分享与探讨(5-宏与VBA简介 VBA-实用自定义过程)
- 2025-07-09 Excel常用技能分享与探讨(5-宏与VBA简介 VBA常用到的函数一)
- 2025-07-09 Word隐藏的自动备份功能!每次保存生成独立副本,防丢稿终极方案
- 2025-07-09 保存后自动备份工作簿 《Excel VBA 从入门到放弃系列》
- 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)