数据透视表来源更新

我已经看过以前在这个问题上回答的问题，并试图将答案应用到我的macros，但我不断收到运行时错误（13），当我尝试应用它。我将不胜感激任何帮助。

码：

Sub TestPivot（）

Dim test1 As Range Set test1 = Sheets("Raw Data").Range("B1:T100000") Sheets("Summary").PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _ PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ test1 _ , Version:=xlPivotTableVersion14) Set test1 = Nothing End Sub 

谢谢，

夏兰。

Answer 1

试试这个，看看它是否工作：

 Sub TestPivot() Dim test1 As String test1 = "'Raw Data!R1C2:R10000C20'" Sheets("Summary").PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _ PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ test1 _ , Version:=xlPivotTableVersion14) test1 = "" End Sub