Excel 为什么更改透视表范围行上出现无效过程或调用错误?
changepivottablecache行是否存在问题 我已尝试删除此工作簿,但我能够执行该行以刷新表 我已经在网上查看了几个修复程序,但没有一个像预期的那样有效Excel 为什么更改透视表范围行上出现无效过程或调用错误?,excel,vba,pivot-table,Excel,Vba,Pivot Table,changepivottablecache行是否存在问题 我已尝试删除此工作簿,但我能够执行该行以刷新表 我已经在网上查看了几个修复程序,但没有一个像预期的那样有效 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 L
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("Data")
Set Pivot_Sheet = ThisWorkbook.Worksheets("SheetTable")
'Enter in Pivot Table Name
PivotName = "PivotTable2"
'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 "Your Pivot Table is now updated."
End Sub
我能够使用以下代码成功地更改现有的透视表。你可能需要适应你的情况。源代码
Sub ChangePTCache()
Dim PTRange As Range
Dim con_end As String
con_end = Range("'Sheet1'!A1").End(xlDown).Offset(0, 1).Address
Set PTRange = Range("'Sheet1'!A1:" & con_end)
Sheets(1).PivotTables(1).ChangePivotCache ActiveWorkbook.PivotCaches. _
Create(xlDatabase, PTRange)
End Sub