VBA：创建数据透视表时出错

Question

我正在尝试使用以下代码在VBA（Excel 2013）中创建数据透视表

Dim pt As PivotTable
Dim cache As PivotCache

Sheets("data").Select
Set cache=ActiveWorkbook.PivotCaches.Create(xlDatabase,Cells(1,1).CurrentRegion)

Sheets("pivot").Select
Set pt = cache.CreatePivotTable("R4C")

我在行设置pt中遇到错误。 请帮助确定错误。

Answer 1

您是正确的“ RC”字符串有效...但您需要完整的参考！

要使其正常工作，请使用以下命令：

Dim pt As PivotTable
Dim cache As PivotCache

Set cache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Sheets("data").Cells(1, 1).CurrentRegion)

Set pt = cache.CreatePivotTable("'pivot'!R4C")

请检查目标处是否还有另一个对象（可能导致错误）。