这个问题我太熟悉了——核心坑点就是Excel的查询默认是异步刷新的：RefreshAll只是触发刷新指令，不会等所有查询都跑完就继续执行后面的代码，所以你的Move_data拿到的自然还是刷新前的旧数据。下面给你两个实用的解决方案，按需选择：

方案一：强制同步刷新（最直接） #

把所有查询的「背景刷新」关掉，这样RefreshAll就会等所有查询完成后再往下走。修改你的Workbook_Open代码如下：

Private Sub Workbook_Open()
    ' 遍历所有Power Query查询，关闭背景刷新（强制同步）
    Dim qry As WorkbookQuery
    For Each qry In ThisWorkbook.Queries
        qry.BackgroundQuery = False
    Next qry
    
    ' 执行刷新，此时会阻塞到所有查询完成
    ThisWorkbook.RefreshAll
    
    ' 现在调用Move_data，就能拿到最新的查询结果了
    Move_data
End Sub

如果你的查询是通过传统ODBC/OLEDB数据连接创建的（不是Power Query），那要修改Connection对象的属性：

Private Sub Workbook_Open()
    Dim conn As WorkbookConnection
    For Each conn In ThisWorkbook.Connections
        If conn.Type = xlConnectionTypeODBC Or conn.Type = xlConnectionTypeOLEDB Then
            conn.OLEDBConnection.BackgroundQuery = False
        End If
    Next conn
    
    ThisWorkbook.RefreshAll
    Move_data
End Sub

方案二：用AfterRefresh事件（适合需要异步刷新的场景） #

如果你不想阻塞Excel（比如查询数据量很大，同步刷新会让Excel假死），可以利用查询的AfterRefresh事件——等刷新完成后再自动触发Move_data。

步骤1：在ThisWorkbook模块里添加代码 #

' 声明模块级的QueryTable变量，用来绑定事件
Private WithEvents qt As QueryTable

Private Sub Workbook_Open()
    ' 替换成你实际存放查询结果的工作表和QueryTable序号
    Set qt = ThisWorkbook.Worksheets("Sheet2").QueryTables(1)
    ' 触发异步刷新
    qt.Refresh
End Sub

' 刷新完成后触发的事件
Private Sub qt_AfterRefresh(ByVal Success As Boolean)
    If Success Then
        ' 刷新成功才执行数据移动
        Move_data
    Else
        MsgBox "查询刷新失败，无法移动数据！"
    End If
End Sub

注意：如果有多个查询 #

如果你的工作簿里有多个需要等待的查询，可以用类模块来批量绑定所有QueryTable的AfterRefresh事件，避免逐个声明变量。不过这个方法稍复杂，如果你只有1-2个查询，方案一足够用了。

为什么原来的代码会失败？ #

再给你理一遍逻辑：

你原来的Workbook_Open里，RefreshAll刚发出刷新指令，VBA就立刻执行Move_data了——这时候Excel还在后台拉取数据，Sheet2里的内容根本没更新，自然拿不到最新结果。

内容的提问来源于stack exchange，提问作者Vetle Pors Øverland