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

Question

Question: How to save ALL Excel files every given time period - say every minute or every 10 seconds ?

Related: here How to save Excel file every say minute? a way to save given file is described. But if I have many files it is a problem to process like that.

Remark: In case if I need to save every minute - I can use Excel's autosave, but autosave is is in *.xlsb format which I have a problem reading by Python, also several files are created and it is not clear what file is saved in what moment. Also that would not work if I need to save every 10 seconds.

Answer 1

To save all open excel files every 10 seconds, you can use this code. You can assign it to shape and run it from one of the excel files.

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