자동으로 피벗 테이블을 만드는 중 오류가 발생했습니다.

Question

인덱스 일치 및 일반 계산을 통해 일부 값이있는 테이블을 만들기위한 매크로를 만들었습니다. 이 테이블은 범위에 있습니다 ("AA1 : BA"& LastRow) -> lastrow가 매일 변경되기 때문에 LastRow를 쓰고 있습니다. 셀 (9,1)에있는 피벗 테이블을 만들고 소스로 초기 테이블을 만들려고합니다. 아래에서 볼 수있는 코드를 작성했지만 오류가 발생합니다. 피벗 테이블 필드 이름이 줄에 유효하지 않습니다.

Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange).CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), TableName:="PivotTable") 

피벗 테이블과 관련된 전체 코드는 아래에 나와 있습니다.

Dim PSheet As Worksheet 
Dim DSheet As Worksheet 
Dim PCache As PivotCache 
Dim PTable As PivotTable 
Dim PRange As Range 
Dim LastRow As Long 
Dim LastCol As Long 

Application.DisplayAlerts = False 
Application.DisplayAlerts = True 
Set PSheet = Worksheets("Budget_Report") 
Set DSheet = Worksheets("Budget_Report") 

LastRow = DSheet.Cells(Rows.Count, 27).End(xlUp).Row 
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column 

Set PRange = DSheet.Cells(1, 27).Resize(LastRow, LastCol) 

Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange) 
Set PTable = PCache.CreatePivotTable(TableDestination:=PSheet.Cells(9, 1), TableName:="PivotTable") 

With ActiveSheet.PivotTables("PivotTable").PivotFields("T-Lane") 
.Orientation = xlRowField 
.Position = 1 
.Subtotals(1) = True 
.Subtotals(1) = False 
End With 

With ActiveSheet.PivotTables("PivotTable").PivotFields("Monthly Cost FCST") 
.Orientation = xlDataField 
.Position = 1 
.Function = xlSum 
.Name = "Monthly Cost Forecast" 
End With 
With ActiveSheet.PivotTables("PivotTable").PivotFields("Monthly Vol FCST") 
.Orientation = xlDataField 
.Position = 2 
.Function = xlSum 
.Name = "Monthly Vol Forecast" 
End With 
With ActiveSheet.PivotTables("PivotTable").PivotFields("Monthly $/SU FCST") 
.Orientation = xlDataField 
.Position = 3 
.Function = xlSum 
.Name = "Monthly $/SU Forecast" 
End With 
With ActiveSheet.PivotTables("PivotTable").PivotFields("Monthly Cost Actuals") 
.Orientation = xlDataField 
.Position = 4 
.Function = xlSum 
.Name = "Monthly Cost Actual" 
End With 
With ActiveSheet.PivotTables("PivotTable").PivotFields("Monthly Vol Actuals") 
.Orientation = xlDataField 
.Position = 5 
.Function = xlSum 
.Name = "Monthly Vol Actual" 
End With 
With ActiveSheet.PivotTables("PivotTable").PivotFields("Monthly $/SU Actuals") 
.Orientation = xlDataField 
.Position = 6 
.Function = xlSum 
.Name = "Monthly $/SU Actual" 
End With 

아래에 제공되는 피벗 테이블을 기반으로 기록 된 매크로는 당신이 두 번 같은 테이블을 만들려고 할 것으로 보인다

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Budget_Report!R1C27:R279C53", Version:=6).CreatePivotTable TableDestination:="Budget_Report!R9C1", TableName:="PivotTable1", DefaultVersion:=6 
Sheets("Budget_Report").Cells(9, 1).Select 
With ActiveSheet.PivotTables("PivotTable1").PivotFields("T-Lane") 
    .Orientation = xlRowField 
    .Position = 1 
End With 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Monthly Cost FCST"), "Monthly Cost Forecast", xlSum 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Monthly Vol FCST"), "Monthly Vol Forecast", xlSum 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Monthly $/SU FCST"), "Monthly $/SU Forecast", xlSum 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Monthly Cost Actuals"), "Monthly Cost Actual", xlSum 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Monthly Vol Actuals"), "Monthly Vol Actual", xlSum 
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Monthly $/SU Actuals"), "Monthly $/SU Actual", xlSum 

ActiveWorkbook.ShowPivotTableFieldList = False 

Answer 1

설정 PRange 당신은 당신이 항상 최종 주소로 당신이 당신을 확신으로 될 것입니다 모르겠어요 비록 당신의 범위를 설정 Cells.SpecialCells 방법을 사용할 수 있습니다 타겟 범위를 초과하거나 초과하는 여분의 데이터가 없습니다.

Set PRange = DSheet.Range(DSheet.Cells(1, 27), DSheet.Cells.SpecialCells(xlCellTypeLastCell)) 

또한, 개인 스타일의 문제입니다,하지만 난 With 블록을 중첩하는 것이 때로는 더 읽을 수있는 코드에서 결과를 찾을 수 :

그것은 다음과 같이 보일 것입니다. 예를 들면 : 오류가 없었다 경우

Dim DSheet As Worksheet ', PSheet As Worksheet 
Dim PCache As PivotCache, PTable As PivotTable, PRange As Range 
'Dim LastRow As Long, LastCol As Long 

'Application.DisplayAlerts = False ' This is redundant since you're setting it to true below. 
Application.DisplayAlerts = True 
'Set PSheet = Worksheets("Budget_Report") ' 
Set DSheet = Worksheets("Budget_Report") ' These two are Redundant - I am using only DSheet. 

'LastRow = DSheet.Cells(Rows.Count, 27).End(xlUp).Row 
'LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column 

Set PRange = DSheet.Range(Cells(1, 27),Cells.SpecialCells(xlCellTypeLastCell)) 

Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange) 
Set PTable = PCache.CreatePivotTable(TableDestination:=DSheet.Cells(9, 1), TableName:="PivotTable") 

With ActiveSheet.PivotTables("PivotTable") 
With .PivotFields("T-Lane") 
    .Orientation = xlRowField 
    .Position = 1 
    .Subtotals(1) = True ' You're resetting this value in the next  line, you can probably remove it. 
    .Subtotals(1) = False 
End With 

With .PivotFields("Monthly Cost FCST") 
.Orientation = xlDataField 
.Position = 1 
.Function = xlSum 
.Caption = "Monthly Cost Forecast" 'You want .Caption here, not .Name 
End With 

With .PivotFields("Monthly Vol FCST") 
.Orientation = xlDataField 
.Position = 2 
.Function = xlSum 
.Caption = "Monthly Vol Forecast" 
End With 

With .PivotFields("Monthly $/SU FCST") 
.Orientation = xlDataField 
.Position = 3 
.Function = xlSum 
.Caption = "Monthly $/SU Forecast" 
End With 

With .PivotFields("Monthly Cost Actuals") 
.Orientation = xlDataField 
.Position = 4 
.Function = xlSum 
.Caption = "Monthly Cost Actual" 
End With 

With .PivotFields("Monthly Vol Actuals") 
.Orientation = xlDataField 
.Position = 5 
.Function = xlSum 
.Caption = "Monthly Vol Actual" 
End With 

With .PivotFields("Monthly $/SU Actuals") 
.Orientation = xlDataField 
.Position = 6 
.Function = xlSum 
.Caption = "Monthly $/SU Actual" 
End With 

End With 

Answer 2

(이것은 특정 lastrow없는 범위 물론 lastcolumn있다) :

Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange).CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), TableName:="PivotTable") 
Set PTable = PCache.CreatePivotTable(TableDestination:=PSheet.Cells(9, 1), TableName:="PivotTable") 

그냥 두에 분할 :

Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange) 
Set PTable = PCache.CreatePivotTable(TableDestination:=PSheet.Cells(9, 1), TableName:="PivotTable") 

Answer 3

지정은 캐시를 PCache합니다 :

Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange)