VBA运行时错误5：无效的过程调用或参数问题求助

问题根源分析 #

运行时错误5通常源于参数无效，你的代码主要存在以下几个问题：

• 工作表名称包含+特殊字符，直接用字符串引用时未加单引号，导致Excel解析失败；
• 用字符串拼接数据源范围容易出现格式疏漏，稳定性远不如直接传递Range对象；
• 未判断UltimaFila的有效性（比如C列无数据时，值为1但实际无有效数据）。

修正后的代码 #

Dim ws As Worksheet
Dim UltimaFila As Long
Dim RangoDatos As Range
Dim PivotCache As PivotCache
Dim PivotTable As PivotTable

' 绑定工作表对象，避免ActiveSheet的不确定性
Set ws = ActiveSheet
ws.Name = "RReal+RCEmin"

' 获取C列最后一行有效数据行号，处理空列情况
UltimaFila = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row
If UltimaFila < 1 Then Exit Sub ' 无数据时直接退出，避免报错

' 直接用Range对象指定数据源，跳过字符串拼接的格式问题
Set RangoDatos = ws.Range("A1:I" & UltimaFila)

' 创建透视缓存，用Range对象作为SourceData更稳定
Set PivotCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=RangoDatos, _
    Version:=xlPivotTableVersion15 ' Excel 2013及以后版本推荐使用这个常量
)

' 创建透视表，用Range对象指定目标位置
Set PivotTable = PivotCache.CreatePivotTable( _
    TableDestination:=ws.Range("O1"), _
    TableName:="D1", _
    DefaultVersion:=xlPivotTableVersion15 _
)

关键修正点说明 #

• 用Worksheet对象替代ActiveSheet，避免后续操作中工作表切换引发的错误；
• 数据源直接使用Range对象，彻底规避特殊字符工作表名称的引用问题；
• 增加空列判断，防止因无有效数据导致的参数无效；
• 目标位置用ws.Range("O1")代替字符串引用，更直观且不易出错；
• 透视表版本选择对应Excel版本的常量（如Excel 2013+用xlPivotTableVersion15），无需纠结旧版本兼容问题。

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