Excel 2016：Microsoft Query数据更新时同步刷新图表的方法咨询

我明白你的痛点——用外部SQL Server数据源时，不像本地数据那样改完单元格图表就自动更新，还得手动右键刷新确实麻烦。针对Excel 2016的场景，有两个靠谱的方案可以实现自动同步，具体看你的需求：

方法一：利用数据连接的自动刷新设置（适合定时/打开文件时刷新） #

如果你的需求是固定频率刷新，或者打开文件时自动同步数据，可以直接通过连接属性设置：

• 点击数据透视表的任意单元格，切换到「分析」选项卡（Excel 2016里数据透视表专属的选项卡）
• 点击「更改数据源」右侧的「连接属性」按钮
• 在弹出的窗口里，找到「刷新控件」区域：
  • 勾选「打开文件时刷新数据」，每次打开工作簿会自动同步最新数据
  • 如果需要定时刷新，勾选「刷新频率」，设置间隔分钟数（比如每10分钟刷新一次）

不过这个方法没法直接触发“修改指定日期单元格就立即刷新”，如果要精准响应单元格修改，建议用下面的VBA方案。

方法二：用VBA监听指定单元格变化，自动触发刷新（精准匹配你的需求） #

这个方案专门针对“修改指定日期单元格后自动更新数据和图表”的场景，步骤很清晰：

1. 打开VBA编辑器：按下Alt + F11组合键
2. 在左侧项目窗口里，找到存放日期参数的工作表（比如叫「参数表」），双击它打开代码编辑区
3. 粘贴以下代码，记得根据你的实际情况修改标记的内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 这里替换成你用来修改日期的指定单元格，比如A1
    Dim WatchCell As Range
    Set WatchCell = Me.Range("A1")
    
    ' 检查是否修改了指定的日期单元格
    If Not Intersect(Target, WatchCell) Is Nothing Then
        ' 先禁用事件，防止刷新时循环触发代码
        Application.EnableEvents = False
        
        ' 刷新SQL Server的数据源连接，替换成你的连接名称
        ThisWorkbook.Connections("SQL_Server_连接").Refresh
        
        ' 可选：手动刷新数据透视表（有些情况下连接刷新后透视表会自动更，保险起见加上）
        ActiveSheet.PivotTables("销售数据透视表").RefreshTable
        
        ' 重新启用事件
        Application.EnableEvents = True
    End If
End Sub

代码修改说明： #

• 连接名称：在「数据」选项卡的「连接」按钮里，找到你连接SQL Server的那个连接名称，替换代码里的"SQL_Server_连接"
• 透视表名称：点击数据透视表，在「分析」选项卡左上角能看到透视表的名称，替换代码里的"销售数据透视表"
• 监听单元格：把Me.Range("A1")改成你实际用来修改日期的单元格位置

注意事项： #

• 保存文件时要选择「启用宏的工作簿（.xlsm）」格式，否则宏会失效
• 第一次打开文件时，要允许宏运行（Excel会有安全提示，点击启用内容即可）
• 只要连接刷新成功，基于透视表的图表会自动同步更新，不需要额外操作图表

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