OLEDBConnection.ADOConnection (Excel)
Devuelve un objeto de conexión ADO si la caché de la tabla dinámica está conectada a un origen de datos OLE DB.
La propiedad ADOConnection expone la conexión de Microsoft Excel con el proveedor de datos, lo que permite al usuario escribir código en el contexto de la misma sesión que Excel está utilizando con ADO (origen relacional) o ADOMD (origen OLAP). La propiedad ADOConnection está disponible únicamente para las sesiones en que el origen de datos sea OLE DB.
Dim adoADOConnection As ADOConnection
adoADOConnection = ActiveWorkbook.Connections(1).OLEDBConnection.ADOConnection