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

Question

如题所述

Answer 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

追问

套用到我的表单中不行。表单格式能为:xls的吗

追答

你是03还是07或以上的，07或07以上的注意下文件扩展名应该为xlsm 03的无所谓
用的时候打开Excel按下ALT+F11打开VBA编辑界面，双击左侧窗口中的thiswork，然后把我发上去的那个thisworkbook代码复制进去，然后选择“插入”——“模块”——双击新插入的模块将 sub gb()...end sub 复制到新插入的模块中，关闭VBA编辑界面，保存并关闭Excel即可，下次打开是就能自动关闭（注意：需要修改宏安全性，具体步骤百度上查一下就用，写的很详细）

追问

你用的是03还是07的吗？
我把你的文件另存为 。xls 格式的也可以保存退出文档，
但是套用在文用的表中就不行了

晕！！

追答

附件中那个是07的
这个代码03和07或07以上的都能用，没有区别，需要注意的只是07或以上的扩展名为xlsm才能存放代码xlsx无法存放代码