fname As String fname = Format(Date
时间:2022-12-27 16:39:19
怎么使用VBA代码实现excel文档每天自动备份
实现这样“高大尚”的功能现有的excel功能无法完成,还得VBA编程的方法。当然,作为不懂VBA代码的你,只需要按下面步骤复制粘贴即可。
第1 步:打开要备份的excel文件,在工作表标签上右键单击,点击“查看代码”。
第2步 在打开一个visualbasic窗口,双击工程窗口中的thisworkbook,把下面的代码粘贴到右侧的窗口中。
代码:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Dim mypath As String, fname As String
fname = Format(Date, "yymmdd") & ThisWorkbook.Name
mypath = ThisWorkbook.Path & "/备份/"
ThisWorkbook.SaveCopyAs mypath & fname
End Sub
第3步:在Visual basic窗口中点击保存命令,会弹出另存启用宏的提示,这时点击“否”按钮。
在弹出的保存窗口中,选取保存类型为“Excel 启用宏的工作簿”。
第4步:在当前文件夹中,新建一个名为“备份”的文件夹。
标签:代码,保存,备份,窗口中,Excel教程
0
投稿
猜你喜欢
Word2013文档中大纲视图如何使用
2023-11-27 13:58:48
如何打开iOS 14中轻点背面功能?轻点背面支持哪些机型?
2023-10-22 23:36:20
WPS文字插入图片显示不全怎么办
2023-08-15 15:04:18
如何将Word文档中首字设置下沉格式
2022-05-04 20:31:33
excel表格不一样的R1C1引用样式
2023-09-27 10:34:57
win10专业版和家庭版区别在哪里?各有什么优点?
2023-09-04 11:14:58
excel2007打印预览显示不全怎么办
2022-02-27 07:05:41
如何给统计函数(GROWTH,LINEST,LOGEST,TREND)提供合法的参数值
2023-03-30 15:21:13
excel表格怎么用subtotal?
2022-11-17 07:48:10
word2010中批注内容怎样修改 word修改批注内容的设置方法
2023-08-15 12:32:09
Win10电脑出现需要重新启动的页面怎么办?电脑怎么重新启动?
2023-10-19 02:07:12
如何在Excel单元格中画表格
2023-08-06 17:24:07
如何设置excel表格中各行等高?
2022-04-02 21:31:39
Word2007中像文言文那样给文档添加脚注信息
2023-12-12 12:18:48
Word 2007技巧:设置剪贴画映像效果
2023-12-09 10:08:42
word超好用的Ctrl+Z
2022-03-28 01:12:21
word页面编码如何设置
2023-06-15 13:41:18
在Word2010中为常用符号指定快捷键
2022-06-20 12:42:16
如何在Word中加上“Y页中的第X页”形式的页数
2022-02-24 00:05:01
Win10鼠标右键没反应怎么解决
2023-08-02 08:47:10