VBA创build数据透视表，types不匹配？ 我究竟做错了什么？

获取types不匹配tabledestination:=("pivot!A3")
我想添加一个工作表并将其命名为“Pivot”，并在该工作表上创build数据透视表。

 Dim pt As PivotTable Dim Pcache As PivotCache Sheets.add.name = "Pivot" Sheets("DATA").Select Set Pcache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Cells(1, 1).CurrentRegion) Set pt = ActiveSheet.PivotTables.Add(PivotCache, tabledestination:=("pivot!A3")) With pt PivotFields.Subtotals(1) = False .InGridDropZones = True .RowAxisLayout xlTabularRow .PivotFields("Apple").Orientation = xlRowField .PivotFields("Apple Qty").Orientation = xlDataField End With 

Answer 1

这对我工作…

 Sub Sample() Dim pt As PivotTable Sheets.Add.Name = "Pivot" With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ SourceData:=Sheets("DATA").Cells(1, 1).CurrentRegion) Set pt = .CreatePivotTable(TableDestination:="Pivot!R3C1") End With '~~> Rest of Code End Sub 

或者，如果你想按照你的方式做到这一点

 Sub Sample() Dim pt As PivotTable Dim Pcache As PivotCache Sheets.Add.Name = "Pivot" Set Pcache = ActiveWorkbook.PivotCaches.Create(xlDatabase, _ Sheets("DATA").Cells(1, 1).CurrentRegion) Set pt = Pcache.CreatePivotTable(tabledestination:=("Pivot!R3C1")) '~~> Rest of the code End Sub 

小心：如果表单PIVOT存在，将会出现错误。 也许你想添加到您的代码？

 Application.DisplayAlerts = False On Error Resume Next Sheets("Pivot").Delete On Error GoTo 0 Application.DisplayAlerts = True Sheets.Add.Name = "Pivot" 

Answer 2

而不是使用

 Set pt = ActiveSheet.PivotTables.Add(PivotCache, tabledestination:=("pivot!A3")) 

我用这个来推进：

 Sheets("Pivot").Activate Set pt = ActiveSheet.PivotTables.Add(PivotCache:=Pcache, TableDestination:=Range("A3")) 

注意添加了Sheets("Pivot").Activate和PivotCache:=Pcache 。 虽然我没有检查下面的代码的有效性。