Question

我已经看过以前在这个问题上回答过的问题，并尝试将答案应用到我的宏中，但是当我尝试应用它时，我一直遇到运行时错误（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

数据透视表源更新

1 个答案: