pivot表自动更新-EXCEL

Question

图像错误

亲爱的；

我在 depurator 中的波纹管代码中发现错误 VBA 指出这一点：

Pivot_Sheet.PivotTables(PivotName)。 _ ChangePivotCache ActiveWorkbook。 _ PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)

下面的代码：

Sub UpdatePivotTableRange()

Dim Data_Sheet As Worksheet
Dim Pivot_Sheet As Worksheet
Dim StartPoint As Range
Dim DataRange As Range
Dim PivotName As String
Dim NewRange As String
Dim LastCol As Long
Dim lastRow As Long

'Set Pivot Table & Source Worksheet
Set Data_Sheet = ThisWorkbook.Worksheets("BASE")
Set Pivot_Sheet = ThisWorkbook.Worksheets("TABELA")

'Enter in Pivot Table Name
PivotName = "Tabela dinâmica3"

'Defining Staring Point & Dynamic Range
Data_Sheet.Activate
Set StartPoint = Data_Sheet.Range("A1")
LastCol = StartPoint.End(xlToRight).Column
DownCell = StartPoint.End(xlDown).Row
Set DataRange = Data_Sheet.Range(StartPoint, Cells(DownCell, LastCol))

NewRange = Data_Sheet.Name & "!" & DataRange.Address(ReferenceStyle:=xlR1C1)


'Change Pivot Table Data Source Range Address

 

Pivot_Sheet.PivotTables(PivotName). _
ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange)

 'Ensure Pivot Table is Refreshed
Pivot_Sheet.PivotTables(PivotName).RefreshTable

'Complete Message
Pivot_Sheet.Activate
MsgBox "Relatório " & PivotName & " foi atualizado. Aperte OK."

      
End Sub