VBA透視表範圍變化

Question

我有一個PivotTable，它的範圍和數據總是變化我有如下數據：

Range("A3").Select 
Selection.CurrentRegion.Select 
DataArea = "Sheet21!R1C1:R" & Selection.Rows.Count & "C" & Selection.COLUMNS.Count 
ActiveSheet.PivotTables("PivotTable7").ChangePivotCache ActiveWorkbook. _ 
     PivotCaches.Create(SourceType:=xlDatabase, SourceData:=DataArea, _ 
     Version:=xlPivotTableVersion15) 

我得到一個錯誤

無法獲取的數據透視表屬性工作表類

Answer 1

代碼將修改「PivotTable7」中的「工作表Sheet1」的（修改到你有你的PivotTable您的工作表的名稱），WI SourceData from Worksheets("Sheet21").Range("A3").CurrentRegion。

Option Explicit 

Sub ChangePivotTableCache() 

Dim PvtTbl As PivotTable 
Dim DataArea As String 

' fully qualify your range by adding the worksheet object 
With Worksheets("Sheet21").Range("A3").CurrentRegion 
    DataArea = "Sheet21!R1C1:R" & .Rows.Count & "C" & .Columns.Count 
End With 

On Error Resume Next 
Set PvtTbl = Worksheets("Sheet1").PivotTables("PivotTable7") '<-- modify "Sheet1" to your sheet's name 

On Error GoTo 0 
If Not PvtTbl Is Nothing Then ' <-- If pivot table exist 
    PvtTbl.ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=DataArea) 
Else ' <-- If pivot table doesn't exist 
    MsgBox "Pivot Table doesn't exist in worksheet!" 
End If 

End Sub 

注意：獲得SourceData的String你也可以使用：

DataArea = "Sheet21!" & Worksheets("Sheet21").Range("A3").CurrentRegion.Address(True, True, xlR1C1)