小编Vet*_*and的帖子

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

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 的属性造成的，并假设我需要编写其他内容。