VBA创建数据透视表无报错但内容为空如何排查解决

问题核心原因 #

你的代码存在多处逻辑错误，是数据透视表为空的直接诱因：

1. PivotCache类型赋值错误：PivotCaches.Create()返回的才是PivotCache对象，你在后面直接链式调用CreatePivotTable()，返回的是PivotTable对象，赋值给声明为PivotCache类型的PCache变量，类型完全不匹配，后续逻辑全部混乱。
2. 透视表存放工作表指向矛盾：你前面新建了名为PivotTable的工作表，后续却将透视表存放位置PSheet赋值为Worksheets("Summary")，如果工作簿不存在Summary工作表，透视表创建逻辑本身就已经出错。
3. 重复创建透视表：你连续调用了两次CreatePivotTable()，会生成两个同名透视表，字段绑定逻辑完全失效。

排查修复步骤 #

• 修正PivotCache和透视表创建逻辑，拆分两个步骤，删除重复创建代码：

' 正确定义Pivot Cache
Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange)

' 仅创建一次透视表即可
Set PTable = PCache.CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), TableName:="SalesPivotTable")

• 修正工作表指向：如果要把透视表存放到刚新建的工作表，将Set PSheet = Worksheets("Summary")修改为Set PSheet = Worksheets("PivotTable")；如果确实要存放到Summary表，提前确认工作簿中存在该工作表。
• 验证数据源有效性：可在Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)后加一行Debug.Print PRange.Address，运行后在立即窗口查看选中的数据源范围是否完整包含Report表的表头和所有数据，确认你代码中用到的字段名（Works For Code、Category Name等）和Report表的表头完全一致，没有多余空格、拼写错误。
• 验证数值列格式：确认Report表的Expense Amount列为数值格式，文本格式的数值求和会返回空值。
• 排查筛选逻辑：创建透视表后可手动打开各字段的筛选菜单，确认没有默认勾选隐藏所有数据项。

内容的提问来源于stack exchange，提问作者JK THE GREAT