VBA代码仅在工作时间内每隔10分钟运行一次

Question

我希望我的代码在整个工作日内每隔10分钟运行一次，但是在工作日结束时停止。目前，我的代码使用

Application.OnTime Now + TimeValue("00:10:00"), "!Module1.Refresh3"

，但是由于它会持续整夜运行，因此会引起问题。

Answer 1

您可以执行以下操作：

If Hour(Now) > 19 Then
    Application.Wait (Now + TimeValue("12:00:00"))
End If

从8pm开始，您的代码将停止运行12个小时。 为了澄清起见：如peakpeak所述，请确保在外部循环中运行此程序，因此，每隔10分钟就会对这些行进行评估。