創建Pivot VBA時出錯

Question

我正在尋找一些幫助。

我面臨一個問題，試圖在Excel中創建數據透視表。

當我運行下面的代碼：

Sub Create_Pivot() 


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ 
    Sheets("Data In Scope").Cells(1).CurrentRegion.Address).CreatePivotTableTableDestination:=Worksheets("Pivot For Data").Range("A1"), TableName:= _ 
    "PivotTable1", DefaultVersion:=xlPivotTableVersion10 


End Sub 

我沒有問題，但我需要透視使用表格版本14。

當我添加以下代碼：

Sub Create_Pivot() 


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ 
    Sheets("Data In Scope").Cells(1).CurrentRegion.Address).CreatePivotTable TableDestination:=Worksheets("Pivot For Data").Range("A1"), TableName:= _ 
    "PivotTable1", DefaultVersion:=xlPivotTableVersion14 


End Sub 

我得到一個運行時錯誤「5」無效的過程調用或參數

任何援助將不勝感激。

W

Answer 1

您還需要在添加PivotCache時指定版本。您需要添加：

Version:=xlPivotTableVersion14 

添加到Add方法中的參數列表。

Answer 2

您需要使用PivotCaches.Create代替過時PivotCaches.Add方法

Sub Create_Pivot() 


ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
    Sheets("Data In Scope").Cells(1).CurrentRegion.Address, Version:=xlPivotTableVersion14).CreatePivotTable TableDestination:=Worksheets("Pivot For Data").Range("A1"), TableName:= _ 
    "PivotTable1", DefaultVersion:=xlPivotTableVersion14 


End Sub