Я пытаюсь написать код, который будет автоматически обновлять веб-сайт каждые 10 минут.У меня есть кнопки Пуск и Стоп.После нажатия кнопки запуска обновление начнется.Проблема в том, что я не могу нажать кнопку Стоп, потому что код работает.
Вот мой код:
Public Sub Start()
wksMain.Range("A5").Value = "start"
x:
VBA.DoEvents
If wksMain.Range("A5").Value = "stop" Then Exit Sub
AppActivate "Kampala - Wikipedia"
SendKeys "{F5}"
Application.Wait (Now + TimeValue("00:10:00"))
GoTo x
End Sub
Public Sub Stopper()
wksMain.Range("A5").Value = "stop"
End Sub