通过VBA更改数据透视表源

Question

当我使用下面的代码来改变VBA中的枢轴源范围时，我得到“无效的过程或调用”。这样做的正确语法是什么？提前谢谢。

Dim DataArea As Variant
'...    
DataArea = "Raw_Data!R1C1:R" & Selection.Rows.Count & "C" & Selection.Columns.Count
Sheets("Pivot-view").Select
Range("A1").Select
ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
   PivotCaches.Create(SourceType:=xlDatabase, SourceData:=DataArea, _
   Version:=xlPivotTableVersion14)

Answer 1

如果DataArea是工作簿中有效的命名范围，那么宏中对它的引用需要在引号中;因此，更新

SourceData:=DataArea,

成为

SourceData:="DataArea",