OLEDBConnection.OLAP (Excel)

Retorna True se a conexão OLE DB for conectada a um servidor de OLAP processamento analítico online. Boolean somente leitura.

Dim booOLAP As Boolean
booOLAP = ActiveWorkbook.Connections(1).OLEDBConnection.OLAP