使用VBA在现有工作表创建数据透视表出现运行时错误5问题求助

错误核心原因 #

你代码的报错根源是数据源引用、透视表目标位置引用不完整，以及工作簿/工作表对象未明确绑定，导致透视缓存读取参数无效，具体问题点如下：

• 你拼接的SrcData仅包含单元格地址（格式为$B$5:$I$xx），没有补充所属工作簿、工作表名称，透视缓存无法识别数据源位置
• 创建PivotCache时使用ActiveWorkbook，由于你的代码存放在独立工作簿，激活状态变化会导致对象指向错误
• 绑定透视表存放工作表sht时未指定所属工作簿，默认会指向代码所在的工作簿，而非你存数据的CashBreaksMetricsWorkbookFinal
• 拼接StartPvt字符串容易出现引用格式错误，直接传入Range对象稳定性更高

修正后完整代码 #

Public CashBreaksMetricsWorkbookFinal As Workbook
Sub CashBreaksSummaryTab3()
    Dim CountRows2 As Long
    Dim srcSht As Worksheet
    Dim pvtSht As Worksheet
    Dim pvtCache As PivotCache
    Dim pvt As PivotTable
    Dim srcRng As Range
    Dim pvtStartRng As Range
    
    ' 绑定数据源工作表和透视表存放工作表，明确指定所属工作簿
    Set srcSht = CashBreaksMetricsWorkbookFinal.Worksheets("CSCIG_Cash Breaks Metrics")
    Set pvtSht = CashBreaksMetricsWorkbookFinal.Worksheets("CSCIG_Cash Breaks Summary")
    
    ' 计算数据源最后一行
    CountRows2 = srcSht.Range("I" & srcSht.Rows.Count).End(xlUp).Row
    
    ' 直接定义数据源范围，无需拼接字符串
    Set srcRng = srcSht.Range("B5:I" & CountRows2)
    
    ' 定义透视表起始位置
    Set pvtStartRng = pvtSht.Range("A4")
    
    ' 基于目标工作簿创建透视缓存，直接传入数据源范围对象
    Set pvtCache = CashBreaksMetricsWorkbookFinal.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=srcRng)
    
    ' 创建透视表，直接传入目标位置Range对象，可选指定透视表名称
    Set pvt = pvtCache.CreatePivotTable( _
        TableDestination:=pvtStartRng, _
        TableName:="CashBreaksPivot")

End Sub

额外注意事项 #

运行代码前请确保CashBreaksMetricsWorkbookFinal已经正确初始化赋值（即你已经通过Workbooks.Open或者其他方式绑定了存放数据和透视表的目标工作簿），且目标工作簿中存在对应名称的两个工作表。

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