本文又是一篇折腾文。纯属乱写代码。 构思就是代码运行后倒计时执行关闭操作。 上代码：   Sub AfterTimetoRun()        MsgBox "从现在开始,10秒后执行关闭Excel程序"       Application.OnTime Now + TimeValu