我明白你的困扰——打开工作簿就自动跑PTTransport确实挺烦的，尤其是报表还很大的时候。这个问题的核心是：Excel打开工作簿时，如果你的数据透视表设置了打开文件时刷新数据，就会触发Worksheet_PivotTableUpdate事件，而这时候你并不想执行后续的代码。

这里有两个靠谱的解决方案，你可以根据自己的需求选：

方案一：用全局变量标记工作簿加载状态 #

这个方法能精准区分「初始化阶段的自动刷新」和「用户主动触发的更新」，适合需要保留“打开时刷新透视表”功能的场景：

1. 在ThisWorkbook模块定义全局变量
   打开VBA编辑器（Alt+F11），找到左侧的ThisWorkbook，双击打开，输入以下代码：

   Public WorkbookLoaded As Boolean
   

2. 在Workbook_Open事件里标记加载完成
   同样在ThisWorkbook模块里，添加工作簿打开完成的标记：

   Private Sub Workbook_Open()
       ' 等工作簿所有内容加载完成后，把标记设为True
       WorkbookLoaded = True
   End Sub
   

3. 修改原工作表的事件代码
   回到你的工作表模块，把原来的代码改成这样：

   Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
       ' 只有工作簿完全加载完成，且目标是指定透视表时才执行代码
       If ThisWorkbook.WorkbookLoaded And Target.Name = "PivotTable1" Then
           Call PTTransport
       End If
   End Sub
   

   原理很简单：打开工作簿时，透视表自动刷新触发事件，但此时WorkbookLoaded还是False，所以会跳过PTTransport；等工作簿完全打开后，标记变为True，之后你手动更新透视表时，代码就会正常执行。

方案二：取消透视表的“打开时刷新”设置 #

如果你的业务不需要打开工作簿就自动刷新透视表，直接关闭这个设置更简单：

• 右键点击目标透视表（PivotTable1）
• 选择「数据」→「刷新数据」
• 在弹出的窗口里，取消勾选「打开文件时刷新数据」
• 点击确定保存设置

这样打开工作簿时，透视表不会自动刷新，自然也就不会触发Worksheet_PivotTableUpdate事件了。

最后提醒一下：如果你的报表里有多个透视表，记得检查每个透视表的刷新设置，避免其他透视表也触发不必要的事件。

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