录制的创建数据透视表VBA宏嵌入大宏后报错求助

报错原因分析 #

你这段录制的宏代码依赖工作表激活/选择状态，单独运行时环境单一不会出问题，但嵌入多步骤大宏时，很可能因为之前的步骤改变了当前激活的工作簿/工作表，导致代码里的ActiveWorkbook、Table2、目标位置引用出现上下文错误，进而触发最后一行的创建透视表报错。另外录制宏生成的Version:=8是Excel 2010的特定版本标识，高版本Excel中可能存在兼容性问题。

修复后的代码 #

Dim wsSummary As Worksheet
Dim wsInventory As Worksheet
Dim ptCache As PivotCache
Dim pt As PivotTable

' 引用Inventory工作表（Table2所在表）
Set wsInventory = ThisWorkbook.Worksheets("Inventory")
' 创建并定位新的汇总工作表
Set wsSummary = ThisWorkbook.Sheets.Add
wsSummary.Name = "Inventory Summary"
wsSummary.Move after:=ThisWorkbook.Worksheets("Info")

' 清除剪贴板状态
Application.CutCopyMode = False

' 创建透视缓存（明确指定数据源所在工作表的Table2）
Set ptCache = ThisWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=wsInventory.ListObjects("Table2").Range _
)

' 创建透视表（直接使用工作表对象定位目标位置）
Set pt = ptCache.CreatePivotTable( _
    TableDestination:=wsSummary.Range("A2"), _
    TableName:="PivotTable1" _
)

修改说明 #

• 用对象变量直接引用工作表，彻底摆脱对Select/Activate的依赖，避免上下文错误。
• 明确指定Table2是Inventory工作表下的列表对象，不会因为当前激活表变化找不到数据源。
• 移除重复的剪贴板状态清除代码，保留一次即可。
• 去掉硬编码的版本标识，让Excel自动适配当前版本，提升兼容性。
• 用直观的Range("A2")替代R1C1格式字符串，降低引用出错概率。

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