Workbook 案例1:Excel 打开时自动刷新数据透视表

很多职场人每天重复着一套固定的Excel操作：打开日报、月报报表，手动点击刷新数据透视表、更新统计数据，确认无误后再开始工作。日复一日的机械操作，浪费大量碎片化时间，还容易忘记刷新导致数据滞后出错。

其实不用手动操作！借助Excel VBA Workbook工作簿事件，我们可以设置文件打开瞬间自动执行数据刷新任务，全程零手动干预，打开表格就是最新数据，彻底解决数据更新遗漏、操作繁琐的问题。

今天分享这则零门槛自动化案例，新手直接复制代码套用，轻松实现报表自动更新！

✨ 适用场景

日常每日/每周固定报表、带数据透视表的统计表格、需要定期刷新数据源的台账，适合不想每次手动刷新、追求报表高效同步的办公场景。

💻 完整可直接套用代码

Private Sub Workbook_Open()    '打开工作簿自动执行以下操作    Dim ws As Worksheet    Set ws = ThisWorkbook.Worksheets("数据汇总") '指定需要操作的工作表    '1、刷新表格所有数据透视表    Dim pt As PivotTable    For Each pt In ws.PivotTables        pt.RefreshTable    Next pt    '2、弹窗提示更新完成    MsgBox "报表已自动刷新更新！", vbInformation, "更新完成"End Sub

📝 详细操作步骤

1. 打开需要设置自动化的Excel报表文件，按下快捷键 Alt+F11 快速打开VBA编辑器；

2. 在左侧工程窗口中，双击 ThisWorkbook 选项，进入工作簿代码编辑界面；

3. 上方下拉框分别选择「Workbook」和「Open」，自动生成事件框架后粘贴全部代码；

4. 根据自己的表格名称，修改代码中的「数据汇总」工作表名称；

5. 将文件另存为 .xlsm 启用宏的工作簿格式，保存后关闭文件；

6. 再次打开文件，系统将自动执行数据刷新，并弹窗提示更新完成。

💡 拓展小技巧

除了刷新透视表，还可以在代码中新增清空冗余数据、固定单元格赋值、跳转指定工作表等操作，按需定制专属开机自动任务，适配自己的工作场景。

总结：简单几段代码，彻底告别手动刷新报表，每天省去重复操作，高效又精准，杜绝数据滞后问题！