VBA para insertar una tabla Power Pivot con un clic

Cuando Microsoft lanzó originalmente Power Pivot, se introdujo como un complemento para Excel 2010. Después de que se creó y lanzó la segunda versión del complemento, el equipo de Microsoft Build se centró en escribir el producto en la versión de 2013 de MS Office. Desafortunadamente ellos se acabó el tiempo para escribir todas las funciones en la versión de Office 2013 – como consecuencia Hay una serie de características que en realidad son mejores en la versión de complemento de Excel 2010 que en la versión de Office 2013.

En 2010, es más fácil editar sus medidas

En Excel 2010, puede hacer clic con el botón derecho en una medida en la ventana Lista de campos y seleccionar «EDITAR». En 2013, debe abrir el cuadro de diálogo Administrar campos calculados y luego encontrar la medida que desea editar.

Y 2010 es más fácil de insertar una tabla Power Pivot

En Excel 2010 hay un botón «insertar tabla dinámica» en la pestaña Power Pivot en Excel. Simplemente haga clic en este botón para crear una nueva tabla dinámica que esté conectada al modelo de datos. No existe tal botón en Excel 2013 (a menos que vaya a la ventana de Power Pivot.

La alternativa a navegar a la ventana de Power Pivot es que debe usar 8 clics para insertar una tabla (se muestra a continuación).

La solución: algo de VBA para agregar una tabla dinámica

He estado pensando en escribir un código VBA. para reemplazar esta tabla dinámica de inserción que falta conectada al botón del modelo de datos desde Excel 2013, y lo usé la semana pasada. Es una cantidad muy pequeña de código que facilita mucho el proceso. Simplemente copie el código en su workbook personal.xlb y luego agregue un acceso directo al código en su menú de inicio rápido. Luego puede usar este VBA para insertar una tabla Power Pivot en cualquier hoja de trabajo existente.

Editar: este era mi código original

Sub InsertPPTable()
'
 'capture the starting cursor location
 myAddress = ActiveCell.Address
 myAddress = ActiveCell.Address
 X = ActiveWorkbook.PivotCaches.Count

 ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
 ActiveWorkbook.Connections("ThisWorkbookDataModel")).CreatePivotTable TableDestination:=Range(myAddress)
 Cells(1, 1).Select
 Range(myAddress).Select
End Sub

Código mejorado de Dominik

(consulte la sección de comentarios para conocer los antecedentes)

Sub InsertPowerPivotTable()
   Dim PowerPivotCache As Excel.PivotCache
   Dim NewPowerPivotTable As Excel.PivotTable

   ‘ Create new cache
   Set PowerPivotCache = ActiveWorkbook.PivotCaches.Create( _
   SourceType:=xlExternal, _
   SourceData:=ActiveWorkbook.Connections(“ThisWorkbookDataModel”), _
   Version:=xlPivotTableVersion15)

   ‘ Create PivotTable
   Set NewPowerPivotTable = PowerPivotCache.CreatePivotTable( _
   TableDestination:=ActiveCell, _
   DefaultVersion:=xlPivotTableVersion15)

   ‘ Settings for new PowerPivotTable
   With NewPowerPivotTable
     .RowAxisLayout xlTabularRow
     .HasAutoFormat = False
   End With
   
   ‘ Cleanup
   Set NewPowerPivotTable = Nothing
   Set PowerPivotCache = Nothing
End Sub

Así es como se ve insertar una tabla dinámica vinculada al modelo de datos cuando se usa mi código VBA.