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

Question

问题：如何在每个给定时间段保存所有Excel文件 - 比如每分钟或每10秒？

相关：此处How to save Excel file every say minute?描述了一种保存给定文件的方法。但是，如果我有很多文件，那么处理就像是一个问题。

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

Answer 1

要每10秒保存所有打开 excel文件，您可以使用此代码。您可以将其指定为形状并从其中一个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