[已解决]自动保存和备份的VBA

安全网 · 发表于 2016-3-30 16:47

本帖最后由安全网于 2016-4-14 12:02 编辑

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
If Not Me.Saved Then Me.Save
End Sub求助关闭工作薄时能自动保存和备份，备份到指定的E盘文件夹内

最佳答案

月排行榜 / 总排行榜

zjdh

2016-3-30 20:36

Book1.rar (13.02 KB, 下载次数: 79)

安全网 · 发表于 2016-3-30 17:38

没有关闭工作薄之前可以撤销上一个操作

zjdh · 发表于 2016-3-30 20:36

Book1.rar (13.02 KB, 下载次数: 79)

安全网 · 发表于 2016-3-31 08:08

zjdh 发表于 2016-3-30 20:36

既要保持工作表也需要备份

zjdh · 发表于 2016-3-31 11:11

安全网发表于 2016-3-31 08:08
既要保持工作表也需要备份

仔细检查一下！
都有啊！

安全网 · 发表于 2016-3-31 11:29

zjdh 发表于 2016-3-31 11:11
仔细检查一下！
都有啊！

试了没有

zjdh · 发表于 2016-3-31 11:55

本帖最后由 zjdh 于 2016-3-31 11:57 编辑

这一句就是备份文件，要按照你的需求修改！
ThisWorkbook.SaveAs ("e:\temp\" & ThisWorkbook.Name)

这句就是保存文件到原来位置
Me.Save

安全网 · 发表于 2016-3-31 12:01

zjdh 发表于 2016-3-31 11:55
这一句就是备份文件，要按照你的需求修改！
ThisWorkbook.SaveAs ("e:\temp\" & ThisWorkbook.Name)

备份的能不能设置只保留最后一份，不提示

zjdh · 发表于 2016-3-31 20:47

难道不是吗？？

安全网 · 发表于 2016-3-31 20:56

zjdh 发表于 2016-3-31 20:47
难道不是吗？？

要覆盖原来的备份不提示

		自动登录	找回密码
密码			注册