VBA中的Excel RTD

Question

我试图在VBA中获取RTD输出。问题是，有时数据会返回几秒钟，所以当我运行一个循环时，它会错误地返回0。显然，RTD是异步运行的。如何将其设置为同步运行，以便等待正确的输出？

如果我把公式放进一个单元格里，它通常会立即返回，有时需要一秒钟。如果我试图在VBA中循环，它会很快转到下一个值并返回false，因为它没有等待数据返回。我已经尝试过RTD.RefreshData，它的加载速度不够快，跟不上我的循环。(我的目标是使用RTD遍历数千个字段，这就是我需要这样做的原因)

Answer 1

如果在循环中等待满足条件，情况如何：

Do Until Cells(1, 1) <> "" ' use plausible condition
    Application.Wait (Now + TimeValue("0:00:01"))
Loop