Método PivotTables.Add (Excel)

Artículo
04/07/2023

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 .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
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	Variant	Celda de la esquina superior izquierda del rango de destino del informe de tabla dinámica (el rango de la hoja de cálculo en el que se colocará el informe de tabla dinámica resultante). El rango de destino debe estar en una hoja de cálculo del libro que contiene el objeto PivotTables especificado por expresión.
TableName	Opcional	Variant	Nombre del nuevo informe de tabla dinámica.
ReadData	Opcional	Variant	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. False para poder configurar algunos de los campos como campos de página basados en servidor antes de leer los datos.
DefaultVersion	Opcional	Variant	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 caché de tabla dinámica basada en un proveedor OLAP y, a continuación, se crea un nuevo informe de tabla dinámica basado en la caché de la celda A1 de la primera hoja de cálculo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.