Método Add

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Agrega un nuevo informe de tabla dinámica. Devuelve un objeto PivotTable.

Sintaxis

expresión .Add(PivotCache, TableDestination, TableName, ReadData, DefaultVersion)

expresión Variable que representa un objeto PivotTables.

Parámetros

Name	Necesario/Opcional	Tipo de datos	description
PivotCache	Obligatorio	PivotCache	Memoria caché de tabla dinámica en la que se basa el nuevo informe de tabla dinámica. La memoria caché proporciona los datos para el informe.
TableDestination	Obligatorio	Variante	La celda en la esquina superior izquierda del rango de destino del informe de tabla dinámica (el rango de la hoja de cálculo donde se colocará el informe resultante). Debe especificar un rango de destino en la hoja de cálculo que contiene el objeto de PivotTables especificado por expression.
TableName	Opcional	Variante	Nombre del nuevo informe de tabla dinámica.
ReadData	Opcional	Variante	Si es True, se crea una caché de tabla dinámica que contiene todos los registros de la base de datos externa; esta caché puede ser muy grande. Si es False, se pueden configurar algunos de los campos como campos de página basados en servidor antes de leer los datos.
DefaultVersion	Opcional	Variante	Versión de Microsoft Excel en la que se creó originalmente la tabla dinámica.

Valor devuelto

Objeto PivotTable que representa el nuevo informe de tabla dinámica.

Ejemplo

En este ejemplo se crea una nueva memoria caché de tabla dinámica basada en un proveedor OLAP y luego se crea, en la celda A1 de la primera hoja de cálculo, un nuevo informe de tabla dinámica basado en la memoria caché.

Dim cnnConn As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim cmdCommand As ADODB.Command

' Open the connection.
Set cnnConn = New ADODB.Connection
With cnnConn
    .ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0"
    .Open "C:\perfdate\record.mdb"
End With

' Set the command text.
Set cmdCommand = New ADODB.Command
Set cmdCommand.ActiveConnection = cnnConn
With cmdCommand
    .CommandText = "Select Speed, Pressure, Time From DynoRun"
    .CommandType = adCmdText
    .Execute
End With

' Open the recordset.
Set rstRecordset = New ADODB.Recordset
Set rstRecordset.ActiveConnection = cnnConn
rstRecordset.Open cmdCommand

' Create PivotTable cache and report.
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
    SourceType:=xlExternal)
Set objPivotCache.Recordset = rstRecordset

ActiveSheet.PivotTables.Add _
    PivotCache:=objPivotCache, _
    TableDestination:=Range("A3"), _
    TableName:="Performance"

With ActiveSheet.PivotTables("Performance")
    .SmallGrid = False
    With .PivotFields("Pressure")
        .Orientation = xlRowField
        .Position = 1
    End With
    With .PivotFields("Speed")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With .PivotFields("Time")
        .Orientation = xlDataField
        .Position = 1
    End With
End With

' Close the connections and clean up.
cnnConn.Close
Set cmdCommand = Nothing
Set rstRecordSet = Nothing
Set cnnConn = Nothing

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.