Excel VBA复制数据透视表值到其他工作表时提示无法读取PivotTables属性如何解决

参考数据透视表：

报错根因 #

你遇到的“无法读取PivotTables属性”报错，核心问题出在代码的工作表引用逻辑上：

• 代码使用ActiveSheet（当前激活工作表）定位透视表，运行代码时如果当前打开的工作表不是CLE，自然无法在当前激活表中找到名为TCD CLE的数据透视表，直接触发该错误。
• 其他可能触发该错误的场景：
  • 数据透视表名称拼写错误，比如多了空格、大小写不匹配
  • 工作表CLE被设置为隐藏/非常隐藏状态，无法读取内部对象
  • 工作表名称CLE拼写错误

修正后代码 #

优化了原有逻辑，完全摒弃Select/Selection这类依赖窗口激活状态的不稳定写法，同时对齐你要粘贴到IML表H列的需求：

Sub 复制透视表金额数据()
    Dim wsCLE As Worksheet, wsIML As Worksheet
    Dim pt As PivotTable
    ' 直接绑定指定工作表，不依赖当前激活状态
    Set wsCLE = ThisWorkbook.Worksheets("CLE")
    Set wsIML = ThisWorkbook.Worksheets("IML")
    ' 定位目标数据透视表
    Set pt = wsCLE.PivotTables("TCD CLE")
    
    ' 复制Montant字段的纯数据区域（自动排除表头、总计行）
    pt.PivotFields("Montant").DataRange.Copy
    ' 仅粘贴值到IML表H列的起始行H2
    wsIML.Range("H2").PasteSpecial Paste:=xlPasteValues
    
    ' 清空剪切板，取消选中状态
    Application.CutCopyMode = False
End Sub

额外检查项 #

如果运行修正后代码仍报错，请逐一核对：

• 打开CLE工作表，选中数据透视表，在「数据透视表分析」选项卡最左侧的名称框中，确认透视表名称确实为TCD CLE
• 确认透视表中确实存在名为Montant的字段
• 确认工作簿中存在CLE、IML两个工作表，未被重命名或隐藏

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