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

Question

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

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

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

Answer 1

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