通过

WorksheetBase.PivotTables 方法

  • 项目

获取一个对象，该对象表示工作表上的单个数据透视表（一个 Microsoft.Office.Interop.Excel.PivotTable 对象）或所有数据透视表的集合（一个 Microsoft.Office.Interop.Excel.PivotTables 对象）。

命名空间：  Microsoft.Office.Tools.Excel
程序集：  Microsoft.Office.Tools.Excel.v4.0.Utilities（在 Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 中）

语法

声明
Public Function PivotTables ( _
    index As Object _
) As Object

public Object PivotTables(
    Object index
)

参数

返回值

类型：System.Object
一个对象，表示工作表上的单个数据透视表（一个 Microsoft.Office.Interop.Excel.PivotTable 对象）或所有数据透视表的集合（一个 Microsoft.Office.Interop.Excel.PivotTables 对象）。

备注

可选参数

有关可选参数的信息，请参见Office 解决方案中的可选参数。

示例

下面的代码示例使用 PivotTables 方法获取当前工作表的 Microsoft.Office.Interop.Excel.PivotTables 集合，并刷新该集合中的每个数据透视表。

此示例针对的是文档级自定义项。

Private Sub RefreshPivotTables()
    Dim pivotTables1 As Excel.PivotTables = _
        CType(Me.PivotTables(), Excel.PivotTables)

    If pivotTables1.Count > 0 Then
        For Each table As Microsoft.Office.Interop.Excel.PivotTable _
              In pivotTables1
            table.RefreshTable()
        Next
    Else
        MsgBox("This workbook contains no pivot tables.")
    End If
End Sub

private void RefreshPivotTables()
{
    Excel.PivotTables pivotTables1 = 
        (Excel.PivotTables)this.PivotTables(missing);

    if (pivotTables1.Count > 0)
    {
        foreach (Microsoft.Office.Interop.Excel.PivotTable table 
            in pivotTables1)
        {
            table.RefreshTable();
        }
    }
    else
    {
        MessageBox.Show("This workbook contains no pivot tables.");
    }
}

.NET Framework 安全性

请参见

参考

WorksheetBase 类

Microsoft.Office.Tools.Excel 命名空间