Excel 2007 VBA, чтобы приостановить макрос

Question

В настоящее время у меня есть макрос, который обращается к каталогу и вытаскивает некоторые данные в мою таблицу. Первоначально у меня просто была кнопка для ввода информации и кнопка для удаления всего, но изменения были изменены, и теперь мне нужно ее автоматически запускать макрос, чтобы очистить существующие данные, а затем вытаскивать новые данные каждый час или около того.

Просматривая различные способы, по которым я могу потенциально приостанавливать макрос, оказывается, что цикл является лучшим способом для меня, потому что он позволит мне по-прежнему взаимодействовать с электронной таблицей во время ожидания.

Все, что сказал, вот что я сейчас имею, что, кажется, просто перебирает все, не останавливаясь ни на что.

В конце моего макроса я использую следующие

Call DelayOneHour 
Call RepActiveTicketsDelete 
Call DelayTwoSeconds 
Call RepActiveTicketsDataGrab 

А вот петли

Sub DelayOneHour() 

    Dim NowTick As Long 
    Dim EndTick As Long 

    NowTick = Now 
    EndTick = Now + TimeValue("0:01:00") 

    Do Until NowTick >= EndTick 
     DoEvents 
     NowTick = Now() 
    Loop 

End Sub 

Sub DelayTwoSeconds() 

    Dim NowTick As Long 
    Dim EndTick As Long 

    NowTick = Now 
    EndTick = Now + TimeValue("0:01:00") 

    Do Until NowTick >= EndTick 
     DoEvents 
     NowTick = Now() 
    Loop 

End Sub 

Спасибо за взгляд!

Answer 1

Я бы рассмотрел Application.OnTime как способ эффективно расписание Процедура запуска в более позднее время. Это освобождает среду выполнения (т. Е. Вы можете запускать другие макросы из других книг в течение 1 часа и т. Д.).

Вместо:

Call DelayOneHour 
Call RepActiveTicketsDelete 
Call DelayTwoSeconds 
Call RepActiveTicketsDataGrab 

ли это:

'Run the specified procedure in one hour: 
Application.OnTime Now + TimeValue("00:60:00"), "RepActiveTicketsDelete" 
Exit Sub 

Затем, в конце RepActiveTicketsDelete процедуры, вы запланировали RepActiveTicketsDataGrab процедуру:

'Run the specified procedure in two seconds: 
Application.OnTime Now + TimeValue("00:00:02"), "RepActiveTicketsDataGrab" 
Exit Sub