從VBA中的另一個工作表訪問數據透視表

Question

非常新手的用戶，只是弄濕了我的腳。 如果這是一個白痴問題，請原諒-我很確定自己在做什么。

我正在使用VBA和Excel創建用戶表單。 到目前為止，我已經成功地學習了如何從數據透視表中獲取信息，但是遇到了麻煩。

當從另一張表運行我的用戶窗體時，找不到樞軸表。 這是我正在使用的代碼。

Set PT = ActiveSheet.PivotTables(1)

當我是那個工作表時，它可以完美地工作，但是我設想了一個場景，其中我在不同的工作表上有多個支點，並且希望調用信息並交叉引用數據。

我以為Set PT = ActiveWorkbook.PivotTables(1)可以工作，但是當然不行。 顯然，我還不太了解如何使用數據透視表變量。

有人知道我該怎么做嗎？ 非常感謝。

Answer 1

如果您打開UserForm，打開UserForm的工作簿將是活動的。 如果我理解正確，則需要引用另一張工作表上的數據透視表集合的第一個對象。 為此，請使用數據透視表定義文件的路徑，如下所示：

Dim path as string
Dim wbk as workbook
Dim PT As PivotTable   

path= "C:\folder1\folder2\yourfile.extension"

set wbk = workbooks.open(path)
Set PT = wbk.worksheets("Sheet1").PivotTables(1)
'do your actions, save the file if you want to keep changes
wbk.close
set wbk = nothing

或者，對工作表中的所有數據透視表進行處理，而不是：

Set PT = wbk.worksheets("Sheet1").PivotTables(1)

您可以使用循環遍歷集合，此示例刷新表：

 For Each PT In wbk.worksheets("Sheet1").PivotTables
        PT.RefreshTable
 Next PT