用VBA实际
附件中是写好代码的供参考
写在thisworkbook下的代码
Private Sub Workbook_Open()
Application.DisplayAlerts = True
Application.OnTime Time + TimeSerial(0, 1, 0), "gb"
End Sub
想要改变关闭时间直接修改
Application.OnTime Time + TimeSerial(0, 1, 0), "gb"
这句代码即可,现在是1min关闭并保存
写在模块1下的代码
Sub gb()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Excel.Application.Quit
End Sub