等待查询完成后再继续

Question

我在这本工作簿中有这个。

Private Sub Workbook_Open()
    Workbooks(ThisWorkbook.Name).RefreshAll
End Sub

我所有的查询都在更新。

我想将查询收集的一些信息移动到另一个位置。我使用各种范围。

Sub Move_data()
    Dim rng1, rng2, rng3 As Range
    Set rng1 = Worksheets("Sheet1").Range("A3:F103")
    rng1.Value = Worksheets("Sheet2").Range("A11:F111").Value

    'etc for rng2 and rng3... 
End Sub

问题是 VBA 开始更新查询，然后将“旧”数据移动到我的新位置。我想等到查询完成更新，然后自动移动数据。

我可以设置超时期限，但查询更新所需的时间变化很大（10 秒到 2 分钟之间）。

另外，有没有办法加快查询更新速度。我试过这个：

Application.ScreenUpdating = False

但查询/表/图仍在闪烁/更新。我相信这是由于 Power Query 的属性造成的，并假设我需要编写其他内容。

Answer 1

您应该能够更改查询的属性，以便查询不会“在后台刷新” - 这就是导致宏在查询完全运行之前继续运行的原因。

• 转到功能区：[数据]
• 点击【连接】
• 选择您想要影响的查询
• 按[属性]
• 取消勾选[启用后台刷新]

现在，当您运行刷新宏时，执行将暂停，直到查询完成并且数据拉入。