欢迎来到山村网

如何实现excel每天自动备份

2019-03-05 06:55:21浏览:602 来源:山村网   
核心摘要:  不少同学都担心:excel误删除了怎么办?excel损坏了怎么办?...其实如果excel重要的文件如果每天能备份一份,再也不用担心文件

  不少同学都担心:excel误删除了怎么办?excel损坏了怎么办?...其实如果excel重要的文件如果每天能备份一份,再也不用担心文件丢失和损坏了。本文详细讲述使用VBA代码实现excel文档每天自动备份的方法。

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

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

 如何实现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

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

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

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

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

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

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

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

  设置完成。

  当关闭当前文件后,在备份文件夹中会自动产生一个 日期 + 文件名的excel备份文件。

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

  当第2天再次关闭文件时,同样会再产生一个当天的备份文件。

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

  注意:

  1、以后使用的文件应是xlsm格式的文件。

  2、当打开文件时,如果提示“启用内容”就点击启用。

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

  补充:excel由于支持强大的vba开发语言,使得只要我们能想到的功能,都可以用它来实现。如果你想成为Excel高手,建议学习VBA编程。

(责任编辑:豆豆)
下一篇:

Word 2010 快速设置文档默认粘贴选项

上一篇:

word中如何设置域

  • 信息二维码

    手机看新闻

  • 分享到
打赏
免责声明
• 
本文仅代表作者个人观点,本站未对其内容进行核实,请读者仅做参考,如若文中涉及有违公德、触犯法律的内容,一经发现,立即删除,作者需自行承担相应责任。涉及到版权或其他问题,请及时联系我们 xfptx@outlook.com