VBA中的Excel RTD

我试图抓住VBA的RTD输出。 问题是有时候数据需要花费几秒钟的时间才会回来,所以当我运行一个循环的时候,它错误地返回0.显然,RTD是asynchronous运行的。 我如何设置它同步运行,等待正确的输出?

如果我把这个公式放在一个单元格中,它通常会立即返回,有时需要一秒钟。 如果我尝试在VBA中循环,它会过快地转到下一个值,并返回误报,因为它不会等待数据返回。 我已经尝试了RTD.RefreshData,并且加载速度不够快,难以跟上我的循环。 (我的目标是使用RTD循环访问数千个字段,这就是为什么我需要这样做)

如何在等待条件满足的情况下:

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