暂停宏，编辑工作表和没有按钮的恢复

Question

我有一个需要为许多工作簿运行的宏。有一个部分虽然我用唯一值更新连接字符串的一部分，显然这不能在VBA中完成所以我必须手动执行它。有没有办法我可以让宏执行它所做的事情然后暂停，而我更新连接字符串30秒然后再次开始运行完成？ 谢谢，

Answer 1

这是一个允许你30秒进行更改然后恢复操作的宏：

Sub dural()
    'first part
    'do stuff
    MsgBox "Perform updates"
    t1 = Now
    While Now < t1 + TimeSerial(0, 0, 30)
        DoEvents
    Wend
    MsgBox "Resuming the second part of the macro"
    'macro does more stuff
End Sub

注意：

DoEvents 允许与用户共享焦点。