Model.DataModelConnection (Excel)

Retorna o objeto Model WorkbookConnection da coleção Connections da pasta de trabalho que se conecta ao modelo.

Dim wbconDataModelConnection As WorkbookConnection
Set wbconDataModelConnection = ActiveWorkbook.Model.DataModelConnection