创建数据透视表期间类型不匹配：Excel vba答案

【问题标题】：Type mismatch during creation of pivot table : Excel vba创建数据透视表期间类型不匹配：Excel vba
【发布时间】：2014-09-16 21:58:25
【问题描述】：

我是 VBA 新手。我正在尝试为非常大的记录（大约 30K 记录）创建数据透视表。这是我创建数据透视表的代码。在创建数据透视表时，它会抛出“类型不匹配”错误。它适用于少量记录。

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngData, _
Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:=wsPvtTbl.Range("A1"), _
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion12

请帮助我。在此先感谢

【问题讨论】：

尝试对SourceData 参数使用范围地址而不是范围对象。
成功了。但是我现在对范围进行了硬编码。我需要根据输入动态输入范围吗？

标签： excel vba

【解决方案1】：

你可以在你的 rngData 变量中使用这样的东西：

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="'" & rngData.Worksheet.name & "'!" & rngData.Address(referencestyle:=xlR1C1), _
Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:=wsPvtTbl.Range("A1"), _
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion12

【讨论】：

它也帮助了我，我花了几天时间试图弄清楚！