excel打开几分钟后自动保存并自动关闭文档,用宏怎么做? 盼回复!!!!!

2025-04-28 23:20:58
推荐回答(1个)
回答1:

用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