录制宏创建数据透视表报错：无效的过程调用或参数，求解决方案

你的问题核心是代码中硬编码了旧工作簿的数据源表名和目标工作表名，导致在新工作簿中找不到对应对象，从而触发错误。以下是具体修正方案：

问题分析 #

• SourceData:="Table1"：直接用字符串指定表名，新工作簿中如果没有同名表格会报错
• TableDestination:="5list!R12C18"：硬编码旧工作表名，新工作簿可能不存在该工作表，且字符串引用方式容易因上下文变化失效

修正后的代码 #

Dim wsDest As Worksheet
Dim ptCache As PivotCache
Dim pt As PivotTable
Dim srcTable As ListObject

' 检查并确保目标工作表存在，不存在则新建
On Error Resume Next
Set wsDest = ActiveWorkbook.Worksheets("5list")
On Error GoTo 0
If wsDest Is Nothing Then
    Set wsDest = ActiveWorkbook.Worksheets.Add
    wsDest.Name = "5list"
End If

' 检查数据源表格是否存在
On Error Resume Next
Set srcTable = ActiveWorkbook.ListObjects("Table1")
On Error GoTo 0
If srcTable Is Nothing Then
    MsgBox "未找到名为Table1的数据源表格，请确认", vbExclamation
    Exit Sub
End If

' 创建数据透视缓存（使用对象引用而非字符串）
Set ptCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=srcTable, _
    Version:=xlPivotTableVersion15)

' 创建数据透视表（用Range对象指定目标位置）
Set pt = ptCache.CreatePivotTable( _
    TableDestination:=wsDest.Range("R12C18"), _
    TableName:="PivotTable1", _
    DefaultVersion:=xlPivotTableVersion15)

关键改进点 #

• 用对象替代硬编码字符串：直接引用ListObject（数据源表）和Worksheet（目标工作表），避免依赖旧工作簿的名称
• 增加存在性检查：提前验证数据源和目标工作表是否存在，给出明确提示
• 使用版本常量：用xlPivotTableVersion15这类常量代替数字8，适配Excel 2013及以上版本，代码可读性更强

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