Excel 打开执行某方法，定时关闭

1.打开excel执行任务

//在thisworkbook 下添加此方法

Private Sub Workbook_Open()

Start //具体操作

End Sub

2.定时关闭

Public a, b As Double

b = TimeValue("11:00:00")

Sub StartTimer2()

If timeb > d Then

ExcelClose

Exit Sub

End If

Application.OnTime timeb + TimeValue("00:00:01"), "getdata2"

timeb = timeb + TimeValue("00:01:00")

End Sub

//关闭操作

Sub ExcelClose()

Application.DisplayAlerts = False

Application.Quit

End Sub