Classe ModelConnection (Excel VBA)

Contém informações sobre o novo tipo de conexão de modelo introduzido no Excel 2013 para interagir com o modelo de dados integrados. Para usar uma variável de classe ModelConnection, ela primeiro precisa ser instanciada por exemplo

Dim mcn as ModelConnection
Set mcn = ActiveWorkbook.Connections(1).ModelConnection

ADOConnection

O objeto ADOConnection é usado para criar uma conexão aberta com uma fonte de dados. Permite que suplementos, como o PowerView, criem uma conexão direta com o mecanismo e, portanto, o modelo de dados. Somente leitura objeto ADOConnection .

Dim adoADOConnection As ADOConnection
adoADOConnection = ActiveWorkbook.Connections(1).ModelConnection.ADOConnection

CalculatedMembers

Retorna um objeto CalculatedMembers que representa os membros calculados na conexão do modelo.

Dim cmsCalculatedMembers As CalculatedMembers
Set cmsCalculatedMembers = ActiveWorkbook.Connections(1).ModelConnection.CalculatedMembers

CommandText

Retorna ou define a sequência de comando para a fonte de dados especificada. de leitura/gravação.

O texto do comando é um nome de tabela (de uma tabela de modelo) ou uma expressão DAX avaliando em uma tabela.

ActiveWorkbook.Connections(1).ModelConnection.CommandText =

CommandType

Retorna ou define uma das constantes de enumeração XlCmdType . Leitura/gravação. Os valores de retorno possíveis são xlCmdCube - Contém um nome de cubo para uma fonte de dados OLAP, xlCmdDAX - Contém uma fórmula DAX (expressões de análise de dados), xlCmdDefault - Contém texto de comandos que o provedor OLE DB entende, xlCmdExcel - Contém uma fórmula do Excel, xlCmdList - Contém um ponteiro para listar dados, xlCmdSql - Contém uma instrução SQL, xlCmdTable - Contém um nome de tabela para acessar fontes de dados OLE DB, xlCmdTableCollection - Contém o nome de uma coleção de tabelas.

Para um objeto ModelConnection , este tipo será definido como xlCmdTable ou xlCmdDAX. A conexão isolada ThisWorkbookDataModel para o modelo de dados será do tipo xlCmdCube.

ActiveWorkbook.Connections(1).ModelConnection.CommandType = xlCmdCube