Vba excel循环不更新

Question

我有以下代码，我尝试做的基本上是收集数据并在从A1开始到A100的单元格中找到数据，数据来自单元格M4特定的单元格是动态的并且不断地改变它的价值，是从DDE拉取数据 代码有效，但出于某种原因它采用了第一个值，并且在M4正在改变时不会更新。

任何想法？

Sub looptest()

Dim loop_ctr As Integer

For loop_ctr = 1 To 100

ActiveSheet.Range("A" & loop_ctr).Value = Worksheets("sheet1").Range("M4")

Application.Wait (Now + TimeValue("0:00:01"))

Next loop_ctr

MsgBox " Done! "

End Sub

Answer 1

在Application.Wait ...行之后尝试添加：

DoEvents

如上所述，您的代码不会将Excel暴露给任何其他系统事件（如DDE），以便在循环的整个100秒执行时间内更新Excel应用程序。