怎么使用VBA代码实现excel文档每天自动备份
发布时间:2023-03-17 06:01:02
标签:怎么使用VBA代码实现excel文档每天自动备份
怎么使用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步:在当前文件夹中,新建一个名为“备份”的文件夹。


猜你喜欢
- 有很多朋友现在用的是Win10系统电脑,但是又想体验一下最新的Win11,所以想要把电脑弄成双系统,开机的时候自由选择启动其中一个操作系统进
- 页眉的内容被删除后,下划线就是删不掉,怎么破?:很多时候即使页眉里没有内容,也没有了下划线,但是那个地方仍然有个回车符,就是说双击时仍然存在
- 在 Mac 上打开“语音控制”后,您可以听写文本和说出命令以编辑文本、控制 Mac、执行诸如在文稿中滚动或按下按钮等任务。那我们如何确定说出
- 倒计时制作详解(一)滚动条 倒计时在教学和演示中应用比较广范,制作方法各有特点,我将利用图文教程的方式,详细展示常
- 最近有win10系统的网友,电脑突然蓝屏了,出现一连串的英文代码“DRIVER_IRQL_NOT_LESS_OR_EQUAL”这是什么原因形
- 如何清理笔记本灰尘?有的时候我们笔记本突然死机了或者蓝屏了,出现这些问题的原因,就是因为我们的笔记本灰尘太多了,导致散热不好,温度过高而死机
- 怎么使用Navicat连接数据库?很多用户习惯使用Navicat软件来管理本地的数据库文件,如果你初次接触Navicat,要怎么设置才能连接
- 办公软件WPS Office 2007以小巧的身形却实现了微软Office大部分的功能,综合来说应该是一个非常不错的办公软件。今天我们王二大
- 在VMWare中配置SQLServer2005集群 SQLServer集群安装安装 SQLServer2005 集群 1. 安装M
- 电脑开机问题是最为常见的电脑故障,经常有用户反馈,电脑莫名其妙就启动不了了,然后就得将电脑送去修理。其实电脑无法启动的原因有很多,我们可以先
- Win11右下角水印怎么去除?安装了Win11预览版的用户都知道,Win11预览版桌面右下角有一个版本的水印,这让人很不爽,那么,这个水印怎
- 在使用Excel表格中,中没有“绘制斜线表头”功能,但是我们却经常要用到斜线表头,为此常常使人郁闷。其实,在Excel中制作斜线表头也有很多
- 在工作中,我们时常会同时打开多个文档来进行对比或者编辑,但是一般的文档编辑软件默认情况下只能在一个窗口中打开,这该怎么办了?其实WPS文字中
- Excel有大量操作日期的函数,选择“公式”——“函数库”——“日期和时间”可以访问这些函数。函数
- 端口是设备与外界通讯交流的出口,功能十分强大,每种网络的服务功能都不相同,为了避免端口出现冲突,我们可以打开指定端口,接下来,我们就来看一下
- win7怎么取消共享?有些用户在使用win7系统的时候设置了一些文件夹的共享,那么当他后期想要取消共享,又该怎么操作呢,这里就给大家简单介绍
- 将word文档变为表格形式,点击“插入”,选择“表格”,在下拉菜单中点击“文本转换成表格”; 将“列数”设置为“1
- 或多或少都会遇到过 Windows 无法正常引导的 MBR(主引导记录)错误。MBR 常见错误为:Windows 无法正常启动,显示屏幕上会
- 很多朋友反映在Mac邮件客户端添加QQ邮箱后,总是显示无法验证,根本登不上去?macdown小编为大家带来了如何在Mac邮件客户端添加QQ邮
- 定位幻灯片在WPS演示中,定位到最后一张幻灯片,用矩形工具画一个与页面一样大小的矩形,双击之,在弹出的“设置对象格式”面板中将“填充颜色”设