怎么使用VBA代码实现excel文档每天自动备份

  怎么使用VBA代码实现excel文档每天自动备份

实现这样“高大尚”的功能现有的excel功能无法完成,还得VBA编程的方法。当然,作为不懂VBA代码的你,只需要按下面步骤复制粘贴即可。

  第1 步:打开要备份的excel文件,在工作表标签上右键单击,点击“查看代码”。

怎么使用VBA代码实现excel文档每天自动备份插图1

  第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

怎么使用VBA代码实现excel文档每天自动备份插图3

  第3步:在Visual basic窗口中点击保存命令,会弹出另存启用宏的提示,这时点击“否”按钮。

怎么使用VBA代码实现excel文档每天自动备份插图5

  在弹出的保存窗口中,选取保存类型为“Excel 启用宏的工作簿”。

怎么使用VBA代码实现excel文档每天自动备份插图7

  第4步:在当前文件夹中,新建一个名为“备份”的文件夹。

怎么使用VBA代码实现excel文档每天自动备份插图9

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2305938578@qq.com 举报,一经查实,本站将立刻删除。本文网址:https://www.excelwordppt.com/word-excel-ppt/21928.html

发表评论

登录后才能评论