EXCEL高手如何用VBA实现定时关闭

把这个代码放到
Private Sub Workbook_Open()
Application.OnTime Now() + TimeValue("00:00:10"), "wbclose"
End Sub
Public Sub wbclose()
Application.DisplayAlerts = False
ThisWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End Sub

• 追答：要把代码放到workbook的open事件中。