Код 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

Это остановит ваш код с 8 вечера и далее на 12 часов.Для пояснения: как уже упоминалось в пике, убедитесь, что вы выполняете это во внешнем цикле, поэтому после каждого 10-минутного интервала эти строки оцениваются.