暂停运行第三方加载项

Question

我将宏分为两部分，以便可以暂停并使用第三方加载项来查找股票代码描述。 有些代码没有说明，并且在这种情况下，附件返回“ NTFND”。 我可以找到这些证券的替代描述，但是我需要使用附加组件中的公式来进行识别。 如果我分别运行Step1和Step2，则此方法有效。

Sub Macro1()

Application.ScreenUpdating = False

Call Step1 'enters info from holdings sheet including ticker symbols

Application.Calculate

Call Step2 'fixes all the "Not Found" descriptions

Application.ScreenUpdating = True

End Sub

我尝试了calculate函数，但似乎无法为第三方附加公式进行计算。 有没有其他方法可以让我的宏暂停，直到描述公式运行完毕？

我刚试过

Application.Wait (Now + TimeValue("00:00:05"))

和

If Not Application.CalculationState = xlDone Then DoEvents End If

两者都不起作用。

Answer 1

Application.Wait确实会暂停（在这种情况下为5秒钟），直到执行下一行代码为止。

这可能是您要寻找的：

cpearson.com/excel/ShellAndWait.aspx