引用活动工作表上唯一的数据透视表

Question

我正在从多个工作表中调用一个过程，该过程将打印区域设置为数据透视表的地址。

With ActiveSheet

    .PageSetup.PrintArea = .PivotTables("Pivot_Table_Name_1").TableRange1.Address

End With

ActiveWindow.SelectedSheets.PrintPreview

活动工作表上只有一个数据透视表。我想知道是否有办法引用工作表上唯一的数据透视表＆＃39;避免单独引用每个数据透视表的名称（有很多）。

谢谢。

Answer 1

您可以在工作表的数据透视表集合中通过它的索引引用数据透视表。

以下是两种迭代工作表的方法＆gt;

Dim ws As Worksheet

使用数组yo限制哪些工作表迭代

For Each ws In Worksheets(Array("Sheet1", "Sheet2"))
    With ws
        .PageSetup.PrintArea = .PivotTables(1).TableRange1.Address
    End With
Next

测试工作表上是否有任何数据透视表

For Each ws In Worksheets
    With ws
        If .PivotTables.Count > 0 Then
            .PageSetup.PrintArea = .PivotTables(1).TableRange1.Address
        End If
    End With
Next