VBA保存时备份文件到指定目录

最新推荐文章于 2024-11-18 18:17:43 发布

weixin_30767835

最新推荐文章于 2024-11-18 18:17:43 发布

阅读量1.7k

点赞数 1

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/doctorsun/p/7684363.html

本文提供了一个使用VBA宏代码自动为Excel工作簿创建带时间戳的副本的方法。通过这段代码，用户可以在每次保存文件时自动创建一个包含日期和时间信息的备份副本。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
d = Format(Now(), "yyyy-mm-dd_HH.mm.ss")
s = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
ThisWorkbook.SaveCopyAs "E:\test\" & s & "_" & d & ".xlsm"

End Sub

转载于:https://www.cnblogs.com/doctorsun/p/7684363.html

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

weixin_30767835

关注关注

1
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

Excel 2010 VBA 入门 068 将当前工作簿备份至指定目录

复行数十步

04-26

1585

目录示例：实现代码工作簿对象(Workbook)的SaveCopyAs方法 SaveCopyAs方法和SaveAs方法的区别示例：在许多时候，希望能够为工作簿创建一个备份，以防误操作而丢失数据。如何为当前工作簿自动备份一个副本至指定目录，并以日期和时间为文件名？实现代码 Option Explicit Sub 备份工作簿() Dim FileFullName As String Dim FilePath As String FilePath =..

Excel VBA批量复制文件到指定目录

07-15

Excel VBA批量复制文件到指定目录

参与评论您还未登录，请先登录后发表或查看评论

使用vb按指定路径及文件名将EXCEL另存为横版PDF等格式

12-08

使用vb按指定路径及文件名将EXCEL另存为横版PDF等格式

vba之小功能记录--根据内容，另存文件到指定文件夹

cqpnqp2985的博客

10-28

1178

编码环境： office2003 背景环境：技术部要求添加功能，实现根据合同及项目名，自动创建文件夹及文件。程序代码: Dim htobj As Object Dim modobj As Object '...

VBA 保存文件名和储存

feixiaoniu987的博客

07-08

3026

Sub 保存文件名() Range("A1:J20").Select aa = Mid(ActiveWorkbook.Name, 1, 22) '切片文件名字符 Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\excel-HONG\" & aa & ".pdf" _ , Quality:=xlQualityStandard, ...

Excel-VBA宏编程实例源代码-判断指定的工作簿是否保存过.zip

12-14

这个“Excel-VBA宏编程实例源代码-判断指定的工作簿是否保存过.zip”文件包含了一个实用的VBA宏，它能检查一个工作簿是否已经被保存过。下面我们将深入探讨VBA宏编程及其在Excel中的应用，以及如何实现这个特定的...

会员查询注册系统.zip_文件操作_VBA__文件操作_VBA_

08-09

例如，`Workbooks.Open("路径\会员信息.xlsx")`用于打开指定路径的Excel文件，`Workbook.Save`用于保存当前工作簿，`Workbook.Close`则关闭当前工作簿。 5. **用户界面**：系统可能包含了自定义的用户界面元素，如...

快速的将指定目录下的文件复制到剪贴板的小工具

06-04

标题中的“快速的将指定目录下的文件复制到剪贴板的小工具”是一个简短的描述，指的是一个实用程序或脚本，它的主要功能是高效地选取特定目录中的文件，并将这些文件的内容复制到操作系统的剪贴板上。这种工具通常...

Excel-VBA宏编程实例源代码-更改文件名并保存到另一个文件夹中.zip

12-14

在Excel VBA宏编程中，我们经常会遇到需要批量处理文件，比如更改文件名并将它们保存到不同的目录。这个实例源代码“更改文件名并保存到另一个文件夹中.xlsm”就展示了如何实现这一功能。VBA（Visual Basic for ...

VBA保存文本文件

豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!

05-23

730

【代码】VBA保存文本文件。

Excel VBA保存文件

编程是一门艺术

08-14

2616

Sub HiddenZeroMoney() Open "D:\主题.txt" For Output As #1 Dim i As Single For i = 2 To 203 If Cells(i, 10).Value = 0 Then Print #1, Cells(i, 10).Value; Cells(i, 10).Value = 0; Rows(i).Select Sele

【VBA研究】VBA代码的存放位置

驽马十驾才定不舍

07-18

7047

作者：iamlaosong 学习VBA一般都从录制宏开始，宏代码存放在模块中，第一次录制的时候，系统会自动插入一个模块。我在编写自己的宏时，开始代码只会放在模块中，后来，我才了解到代码还有很多地方可以保存。打开代码编辑器后，我们可以看到VBAproject下面有很多对象，除了固

使用VBA实现将多个不同的sheet另存为单独的excel文件，并且以sheet名称命名

最新发布

U_C_T_C的博客

11-18

1662

这段代码会将当前工作簿中的每个工作表另存为一个新的Excel文件，文件名与工作表名称相同，保存在当前工作簿所在的文件夹中。

Excel VBA获取文件当前路径、文件另存、提取对话框输入的多个数据

xfjane的专栏

12-24

2615

Excel VBA获取文件当前路径、文件另存、提取对话框输入的多个数据

实用VBA：6.一键批量提取文件名和存储路径

周公笃行的博客

11-14

2192

工作中经常会遇到需要对大量文件进行检查、整理、筛选、处理的情况。所有操作的前提是先梳理出有多少文件需要处理，文件存储在什么位置，如果文件目录结构比较复杂，手工逐一打开文件夹进行人工检查是繁琐、低效而不可靠的。如果能够将文件存储路径和文件名提取到excel表格中，就可以直观地观察到文件存储的结构特点。

excel2010设置列宽为像素_vba：如何设置excel图表的宽度和高度(以像素为单位)？...

weixin_39980184的博客

12-21

994

一个看似简单的问题.但是设置ChartObject的宽度和高度或它的Shape不会这样做,它们似乎只是该白色矩形的一些内部部分,即嵌入图表. ChartArea似乎也不是我感兴趣的对象.我想要的是在下面的例子中导出的文件的尺寸为800×600(我并不意味着重新缩放导出的图像或试验和错误,直到大小意外地适合).图表周围一定有一些我忽略的对象.Sub mwe()Dim filepath As Stri...

VBA 复制源文件夹下所有文件到目标文件夹

shunsui110616233的博客

12-07

4084

【代码】VBA 复制源文件夹下所有文件到目标文件夹。

VBA程序--文件夹内所有文件_文件类型csv另存为xlsx

STR_Liang的博客

10-24

1826

Function 文件类型csv另存为xlsx() '请记得先改一下路径，做好备份，最好不要另存为原路径 'ActiveWorkbook.SaveAs Filename:=Replace(ActiveWorkbook.Path, "新数据", "新数据-新") & "/" & Replace(ActiveWorkbook.name, "csv", "xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False .

VBA- 提取指定文件夹下所有文件到指定目录

beatfull_now的博客

06-14

3986

Sub copyFiles(Path As String, afterPath) 'Path：原文件夹路径；afterPath：目标文件夹路径 Dim Spath As String '下边的我自己也不是很理解，但是效果达成是莫得问题的...... Set fs = CreateObject("Scripting.FileSystemObject") Spath = Dir(Path, vbDirectory) Do While Len(Spath) .