VBA停止刷新擅长自动保存

我想自动保存一个csv open excel每一秒它工作正常，但是，问题是在每一个保存，如果我打开2 excel或相同的文件，它出现和消失我想保存在背景不知道如何做到这一点我做了Application.DisplayAlerts = False广告假仍然没有工作。

 Sub SaveThis() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = False Application.OnTime Now + TimeValue("00:00:01"), "SaveThis" End Sub 

更新的代码

 Sub SaveThis() Application.DisplayAlerts = False Application.EnableEvents = False ThisWorkbook.Save Application.DisplayAlerts = True Application.EnableEvents = True Application.OnTime Now + TimeValue("00:00:01"), "SaveThis" End Sub 

Answer 1

试试这个代码。

 With ThisWorkbook If Not .Saved Then .Save End With 

这个想法是硬件不能跟随你所要求的速度。 这个代码会减慢保存频率的变化。 因此，如果每秒一次的速率发生变化，代码将无法解决问题。

但是，除非您希望系统崩溃，否则Excel本身的自动恢复将创build备份，这并不是真正的理由保存工作簿。 另一种可能是你可能想每隔一段时间就要更改单独的副本。 你的代码没有尝试，我怀疑你的硬件能跟上。

因此，即使您每秒修改一次工作簿，也只需要以更长的时间间隔保存它即可。 请记住，保存的目的是为了保护数据。 以你提出的方式强调硬件更可能危及他们。