EXCEL VBA：试图使用UsedRange时如何解决数据透视表错误？

我正在试图创build一个简单的数据透视表，Gas列，行号Dash和input的数量。 我一直在研究这个问题，并找不到解决scheme。 当我尝试运行我的代码时，我不断收到

错误1004：应用程序定义或对象定义的错误。

这是我的代码：

Sub CreatePivotTable() Dim sheet As Worksheet Set sheet = Worksheets("mac3") Sheets.Add.Name = "Table" ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ sheet.UsedRange, Version:=xlPivotTableVersion14). _ CreatePivotTable TableDestination:="Table!R3C1", TableName:="Pvt" _ , DefaultVersion:=xlPivotTableVersion14 Sheets("Table").Select Cells(3, 1).Select With ActiveSheet.PivotTables("Pvt").PivotFields("Gas") .Orientation = xlColumnField .Position = 1 End With With ActiveSheet.PivotTables("Pvt").PivotFields("Dash") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("Pvt").AddDataField ActiveSheet.PivotTables( _ "Pvt").PivotFields("Qty"), "Sum of Qty", xlSum Range("B4").Select Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _ False, True, False, False) End Sub 

Answer 1

你的工作表中是否已有“Pvt”？ 它可以导致这个错误，在这种情况下，你可以尝试改变表和表名到别的东西