设置超时一段代码？

是可以设置一个超时vba执行一个函数或代码块？ 下面的代码有时会挂在打开的方法上（这发生在我遇到networking问题，并显示身份validation提示时）或代码挂在Run方法（计算速度太慢时）。

如果打开或计算工作表的时间超过60秒，我想杀掉excel.exe进程。

Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.DisplayAlerts = False xlApp.Workbooks.Open strpath xlApp.Run "CalculateSheet" xlApp.Workbooks.Close Set xlApp = Nothing