更改数据透视表的连接时，VBA运行时错误

Question

我编写了代码，将所有数据透视表的连接更改为一个新的连接，称为demo2。当我运行此程序时，出现运行时错误。有两个工作簿。带有宏和我正在使用的工作簿的个人工作簿。

下面的代码

Sub runtest()

Dim pTable As Variant
Dim sheet As Variant

For Each sheet In ActiveWorkbook.Worksheets
    For Each pTable In sheet.PivotTables
     pTable.changeConnection ActiveWorkbook.Connections("demo2")
    Next pTable
Next sheet
End Sub

错误消息是：应用程序定义的错误