Question

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

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

请帮我解决这个问题。提前致谢

Answer 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

在创建数据透视表期间键入不匹配：Excel vba

1 个答案: