VBA:创建数据透视表

时间:2016-05-05 13:24:57

标签: excel vba excel-vba

我正在尝试使用以下代码

在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 行中收到错误。请帮助识别错误。

1 个答案:

答案 0 :(得分:0)

你是对的“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")

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