数据透视表错误 - 类型不匹配答案

【问题标题】：Pivot table error - type mismatch数据透视表错误 - 类型不匹配
【发布时间】：2014-01-13 23:58:10
【问题描述】：

我正在尝试创建数据透视表，但它抛出以下错误 - “运行时错误 13 - 类型不匹配”。当我通过这些行运行代码时，错误出现在最后一行“activeworkbook.pivotcaches.etc...”

Sub testmodule()

Dim wsA, wsB As Worksheet

Set wsA = ThisWorkbook.Sheets("Sheet1")
Set wsB = ThisWorkbook.Sheets("Pivot Tables")


Set rnge = wsA.Range("B6")
Set rngData = Range(rnge, rnge.End(xlToRight))
Set rngData = Range(rnge, rnge.End(xlDown))
Set rngB = wsB.Range("C8")

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, _
    Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=rngB, _
    TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14

End Sub

谁能告诉我哪里出错了？

【问题讨论】：

标签： vba excel

【解决方案1】：

将 ...PivotCaches.Create... 更改为 ...PivotCaches.Add...

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=rngData, _
    Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=rngB, _
    TableName:="pvtReportA_B", DefaultVersion:=xlPivotTableVersion14

Here's Microsoft 开发中心上 PivotCaches 对象的链接。它使用 Add 方法而不是 Create（但您的语法是正确的。）

【讨论】：