[已解决]EXCEL或WORD，每过5分钟，自动保存。

yanghuipaul

各位大神，求VBA代码，EXCEL或WORD，每过5分钟，自动保存。

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-1-5 10:37

請測試看看，謝謝
Sub Auto_Open()
Application.OnTime Now() + TimeValue("00:05:00"), "SaveFile"
End Sub
Sub SaveFile()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Auto_Open
Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

sam-wang

請測試看看，謝謝
Sub Auto_Open()
Application.OnTime Now() + TimeValue("00:05:00"), "SaveFile"
End Sub
Sub SaveFile()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Auto_Open
Application.DisplayAlerts = True
End Sub