如何无需打开包含PivotTable的文件即可实现PivotTable自动刷新？

你提到的ThisWorkbook.RefreshAll需要打开对应工作表才生效，通常是代码放在了工作表模块导致的，不过要实现完全不打开文件就能刷新，有两种成熟的实现方式：

方案1：VBS脚本后台静默刷新 #

无需手动操作Excel，支持定时触发，全程无弹窗

• 新建空白文本文档，粘贴以下代码后将文件后缀修改为.vbs

Dim objExcel, objWorkbook
Const xlCalculating = 1
Set objExcel = CreateObject("Excel.Application")
' 配置后台运行，屏蔽弹窗
objExcel.Visible = False
objExcel.DisplayAlerts = False
' 替换为你的透视表所在文件的绝对路径
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\XXX\Desktop\透视表文件.xlsx")
' 刷新所有透视表和数据连接
objWorkbook.RefreshAll
' 等待刷新完成再关闭，避免数据丢失
Do While objExcel.CalculationState = xlCalculating
    WScript.Sleep 1000
Loop
' 保存修改并释放资源
objWorkbook.Save
objWorkbook.Close
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing

• 直接双击vbs文件即可完成刷新，也可以将脚本添加到Windows任务计划程序，按你需要的周期自动执行
• 如果文件设置了打开密码，在Open方法后添加参数Password:="你的文件密码"即可

方案2：Power Query配置无感知刷新 #

不需要写代码，只要打开透视表所在文件就会自动拉取最新数据

• 打开透视表所在的文件，点击「数据」选项卡 -「获取数据」-「来自文件」-「从工作簿」，选择你的数据源文件，导入需要的表后加载到当前工作簿的数据模型
• 插入透视表时选择「使用此工作簿的数据模型」作为数据源
• 进入「数据」选项卡 -「连接属性」，勾选打开文件时刷新数据，之后每次打开这个透视表文件都会自动从数据源文件拉取最新数据，全程不需要打开数据源文件

补充说明：如果你的ThisWorkbook.RefreshAll需要激活对应工作表才能运行，把这段代码从工作表模块移动到ThisWorkbook模块或者标准模块即可解决。

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