Question

如果可用的可执行文件，我有一个运行命令提示符的宏。宏在检查可执行文件是否可用之前等待5分钟。问题是这种锁具有优势。我更喜欢做的是将控制权交还给用户五分钟。

这就是目前代码的样子。

Do Until TuflowEx < Range("Exe").Value ' Check if number of executables running is less than the user specified maximum
    Application.Wait (Now + TimeValue("0:05:00")) ' Wait 5 minutes before checking again
    TuflowEx = TuEx() ' Run TuEx to get the currently active number of executables
Loop

干杯

Answer 1

改为使用Application.Ontime。

只需创建一个例程来进行检查，并在检查成功时恢复逻辑。

Sub ChecktuflowEx()
    If TuEx() => Range("Exe").Value Then
        'whatever you want
    Else
        'Check again in 5 minutes.
        Application.OnTime Now + TimeValue("0:05:00"), "ChecktuflowEx"
    End If
End Sub

将控制权传递给用户指定的时间

1 个答案: