VBA创建PivotTable触发Run-time error '5'的解决求助

• 检查数据源范围有效性
  该错误常因数据源引用不规范触发，比如整列引用（如A:E）、动态范围定义错误，或数据源包含大量空行/列导致范围识别异常。建议使用明确的单元格范围（如Sheet1.Range("A1:E100")），或用UsedRange获取实际数据范围，避免无效引用。

• 精简PivotCache与PivotTable创建代码
  录制宏生成的代码常包含冗余参数（尤其是版本参数），365版本无需手动指定旧版本号，直接省略或使用xlPivotTableVersionLatest即可。以下是经简化的可运行示例：

  Sub CreatePivotTable()
      Dim wsData As Worksheet
      Dim wsPivot As Worksheet
      Dim pc As PivotCache
      Dim pt As PivotTable
      
      ' 指定数据源工作表
      Set wsData = ThisWorkbook.Worksheets("数据源")
      ' 检查透视表工作表是否存在，不存在则新建
      On Error Resume Next
      Set wsPivot = ThisWorkbook.Worksheets("透视表")
      On Error GoTo 0
      If wsPivot Is Nothing Then
          Set wsPivot = ThisWorkbook.Worksheets.Add
          wsPivot.Name = "透视表"
      End If
      
      ' 创建PivotCache
      Set pc = ThisWorkbook.PivotCaches.Create( _
          SourceType:=xlDatabase, _
          SourceData:=wsData.UsedRange)
      
      ' 创建PivotTable
      Set pt = pc.CreatePivotTable( _
          TableDestination:=wsPivot.Range("A3"), _
          TableName:="销售数据透视表")
      
      ' 添加字段示例（根据实际需求调整）
      With pt.PivotFields("地区")
          .Orientation = xlRowField
          .Position = 1
      End With
      With pt.PivotFields("月份")
          .Orientation = xlColumnField
          .Position = 1
      End With
      pt.AddDataField pt.PivotFields("销售额"), "总销售额", xlSum
  End Sub
  

• 适配64位Excel环境
  确保代码中未使用过时API或错误的变量声明，64位Excel下数据透视表核心方法无需特殊调整，但需避免使用仅支持32位的旧函数。

• 分步调试定位问题
  调试时可分步验证：

  • 用MsgBox wsData.UsedRange.Address确认数据源范围是否符合预期
  • 检查TableDestination指向的单元格是否在未受保护、可见的工作表内

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