如何每分钟/ 10秒保存所有的Excel文件？

问题：如何在每个给定的时间段保存所有的Excel文件 – 比如说每分钟还是每隔10秒？

相关：这里如何保存Excel文件每一分钟？ 描述了保存给定文件的一种方法。 但是，如果我有很多文件，这样处理是个问题。

备注：如果我需要保存每一分钟 – 我可以使用Excel的自动保存，但自动保存是* .xlsb格式，我有一个Python阅读的问题，还创build了几个文件，不清楚什么文件保存在什么时候。 如果我需要每10秒钟保存一次，这也是行不通的。

Answer 1

要保存所有打开的 Excel文件每10秒，您可以使用此代码。 你可以指定它的形状，并从其中一个Excel文件运行。

 Sub Save1() Dim xWb As Workbook Application.DisplayAlerts = False For Each xWb In Application.Workbooks If Not xWb.ReadOnly And Windows(xWb.Name).Visible Then xWb.Save End If Next Application.DisplayAlerts = True Application.OnTime Now + TimeValue("00:00:10"), "Save1" End Sub