Model.AddConnection (Excel)
Agrega un nuevo WorkbookConnection al modelo con las mismas propiedades que la suministrada como argumento.
Este método sólo funciona en conexiones externas heredadas o sin modelo y generará un error en tiempo de ejecución si se llama con una conexión de modelo externo como argumento.
AddConnection (ConnectionToDataSource)
ConnectionToDataSource: La conexión del libro.
Dim wbconAddConnection As WorkbookConnection
Set wbconAddConnection = ActiveWorkbook.Model.AddConnection(ConnectionToDataSource:=)