gpt4 book ai didi

excel - 等待查询完成后再继续

转载 作者:行者123 更新时间:2023-12-03 00:44:26 25 4
gpt4 key购买 nike

我在本工作簿中有这个。

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

最佳答案

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

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

现在,当您运行刷新宏时,执行将暂停,直到查询完成并提取数据。

关于excel - 等待查询完成后再继续,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50064762/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com