在使用VBA创建数据透视表时遇到问题

Question

所以我已经能够创建一个数据透视表，我会告诉你我的意思。这是我的代码到目前为止。

Dim WSD As Worksheet 
Dim PTCache As PivotCache 
Dim PT As PivotTable 
Dim PRange As Range 
Dim FinalRow As Long 
Dim FinalCol As Long 
Dim StartPT As String 
Set WSD = Worksheets("aggregateData") 
Set WSD2 = Worksheets("Sheet12") 


' Select the data for pivot table 

FinalRow = WSD.Cells(Rows.Count, 2).End(xlUp).Row 
FinalCol = WSD.Cells(1, Columns.Count).End(xlToLeft).Column 
Set PRange = WSD.Cells(2, 1).Resize(FinalRow, FinalCol) 
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange) 

'Where do I want the pivot table to start 

StartPT = WSD2.Range("A1").Address(ReferenceStyle:=xlR1C1) 


'Begin to Create the Pivot Table 

Set PT = PTCache.CreatePivotTable(TableDestination:=StartPT, TableName:="POS Data") 

PT.PivotFields("Fineline").Orientation = xlRowField 


End Sub 

当我运行这段代码时，我得到了一个数据透视表的开始。但是，数据透视表显示为白色，而不是普通数据透视表所具有的蓝色。任何帮助，将不胜感激。

感谢，

摹

Answer 1

请使用此代码Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange, Version:=xlPivotTableVersion15)取代你的代码的这个Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange)行。 xlPivotTableVersion15是数据透视表的标准蓝色版本。请确认这是否解决您的问题。