Автоматизация закрытия и сохранения файла Excel

Question

Я новичок в vba for excel.

Я пытаюсь автоматизировать закрытие и сохранение файла excel каждый раз, когда он открывается не менее 60 секунд.

До сих пор у меня этот код. но он не выполняется, когда файл был открыт в течение 60 секунд, если я не вручную запустил макрос. Любая помощь в его улучшении очень ценится.

Public Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:00:60"),"ThisWorkbook.TimeOutSaveAndClose"
End Sub

Public Sub TimeOutSaveAndClose() Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit

End Sub

Answer 1

Это должно исправить это для вас. Вы должны позвонить другому подразделению. Также убедитесь, что вы сохранили его как файл с поддержкой макроса

Public Sub Workbook_Open() 

Application.Wait (Now + TimeValue("0:00:60")) 
call TimeOutSaveAndClose 
End Sub 

Public Sub TimeOutSaveAndClose() 
    Application.DisplayAlerts = False 
    ThisWorkbook.Save 
    Application.Quit 

End Sub