如何实现源文件数据变更时自动刷新Excel仪表盘与Power Query

可行，但Excel没有原生的“源文件变更即触发刷新”的直接设置，需要通过以下两种方式实现：

方法一：VBA宏定时检查源文件变更 #

通过VBA定时检测源文件的修改时间，当发现变化时自动触发Power Query刷新：

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 在左侧工程窗口右键你的工作簿，选择「插入」→「模块」
3. 粘贴以下代码（替换注释中的路径和连接名）：

' 全局变量，存储源文件路径和上次修改时间
Dim lastModified As Date
Dim sourcePath As String

' 工作簿打开时初始化参数并启动检查
Private Sub Workbook_Open()
    sourcePath = "C:\你的源文件路径\数据源.xlsx" '替换为实际源文件路径
    lastModified = FileDateTime(sourcePath)
    ' 设置每隔10秒检查一次（可根据需求调整间隔）
    Application.OnTime Now + TimeValue("00:00:10"), "CheckSourceChange"
End Sub

' 检查源文件是否变更，是则刷新Power Query
Sub CheckSourceChange()
    Dim currentModified As Date
    currentModified = FileDateTime(sourcePath)
    
    If currentModified <> lastModified Then
        ' 替换为你的Power Query连接名称
        ThisWorkbook.Connections("Power Query - 你的查询名").Refresh
        lastModified = currentModified
        ' 可选：弹出刷新提示
        ' MsgBox "源文件已更新，Power Query已自动刷新"
    End If
    
    ' 继续定时检查
    Application.OnTime Now + TimeValue("00:00:10"), "CheckSourceChange"
End Sub

' 关闭工作簿时取消定时任务，避免残留进程
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:10"), "CheckSourceChange", , False
End Sub

4. 保存工作簿为.xlsm格式（启用宏的工作簿），下次打开时会自动启动检查

方法二：Power Automate（适用于Excel 365） #

利用微软Power Automate创建自动化流，当源文件修改时触发Excel刷新：

• 登录Power Automate，创建新流，选择「当文件修改时」（触发器，源文件需存储在OneDrive/SharePoint）
• 添加「刷新Excel工作簿中的数据连接」操作，选择目标Excel文件和对应的Power Query连接
• 保存流后，源文件每次变更都会自动触发刷新

注意事项 #

• VBA方法需确保Excel启用宏，且工作簿保持打开状态才能持续检查
• Power Automate方法依赖云端服务，需确保源文件和Excel文件在支持的云存储中

内容的提问来源于stack exchange，提问作者Swethaa