Excel RTD in VBA

Question

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

如果我将公式放在单元格中，它通常会立即返回，有时需要一秒钟。如果我尝试在 VBA 中循环，它会太快地转到下一个值并返回误报，因为它没有等待数据返回。我试过RTD。刷新数据，它的加载速度不够快，无法跟上我的循环。（我的目标是使用 RTD 遍历数千个字段，这就是我需要这样做的原因）

Answer 1

在循环中等待满足条件怎么样：

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