设置PivotField类的name属性时出现错误1004

我创build了一个macros来自动完成数据透视表的build立过程。 macros执行得很好，但它不断显示1004错误（但结果很好）。 我正在提供下面的代码。

'PIVOT TABLE Dim PSheet As Worksheet Dim DSheet As Worksheet Dim PRange As Range Dim LastRow12 As Long Dim LastCol As Long Set PSheet = ActiveSheet LastRow12 = PSheet.Cells(Rows.Count, 1).End(xlUp).Row LastCol = PSheet.Cells(1, Columns.Count).End(xlToLeft).Column Set PRange = PSheet.Cells(1, 1).Resize(LastRow12, LastCol) ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange).CreatePivotTable TableDestination:=PSheet.Cells(2, 16), TableName:="PivotTable1" With ActiveSheet.PivotTables("PivotTable1").PivotFields("Destination") .Orientation = xlRowField .Position = 1 .Subtotals(1) = True .Subtotals(1) = False End With With ActiveSheet.PivotTables("PivotTable1").PivotFields("End Date") .Orientation = xlColumnField .Position = 1 End With With ActiveSheet.PivotTables("PivotTable1").PivotFields("Trucks") .Orientation = xlDataField .Position = 1 .Function = xlSum .NumberFormat = "0.0" .Name = "Trucks" End With 

Answer 1

试试下面的代码，在代码的注释里面的解释：

 Option Explicit Sub CreatePivot4() Dim pvt As PivotTable Dim PvtCache As PivotCache Dim PSheet As Worksheet Dim DSheet As Worksheet Dim PRange As Range Dim LastRow12 As Long Dim LastCol As Long Set PSheet = ActiveSheet With PSheet LastRow12 = .Cells(.Rows.Count, 1).End(xlUp).Row LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column Set PRange = .Range(.Cells(1, 1), .Cells(LastRow12, LastCol)) End With ' Create Pivot Cache Set PvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange.Address(False, False, xlA1, xlExternal)) ' Set the Pivot Table (already created in previous macro run) On Error Resume Next Set pvt = PSheet.PivotTables("PivotTable1") On Error GoTo 0 If pvt Is Nothing Then ' <-- pivot table still doesn't exist >> need to create it ' create a new Pivot Table in ActiveSheet sheet, start from Cell A1 Set pvt = PSheet.PivotTables.Add(PivotCache:=PvtCache, TableDestination:=PSheet.Cells(2, 16), TableName:="PivotTable1") With pvt With .PivotFields("Destination") .Orientation = xlRowField .Position = 1 .Subtotals(1) = True .Subtotals(1) = False End With With .PivotFields("End Date") .Orientation = xlColumnField .Position = 1 End With With .PivotFields("Trucks") .Orientation = xlDataField .Position = 1 .Function = xlSum .NumberFormat = "0.0" '.Name = "Trucks" ' * Why do you need to rename it ? End With End With Else ' just refresh the Pivot table, with updated Pivot Cache pvt.ChangePivotCache PvtCache pvt.RefreshTable End If End Sub