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”-string是有效的...但你需要完整的参考！

要使其正常工作，请使用：

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")

请检查目的地是否有另一个物体（可能导致错误）。