Gerade habe ich einen Beitrag gelesen, wie man Informationen über eine SSAS Datenbank in Excel oder andere Client Applikationen anzeigen kann. Da habe ich mich gefragt, ob das nicht auch mit VBA in Excel geht. Auch die Analysis Services bieten Schemas. Die werden hier gelesen.

Function CubeProcessed(Connection As String)

    On Error GoTo errorhandler
   
    Dim conn As Object: Set conn = CreateObject(„ADODB.CONNECTION“)
    Dim rec As Object
    Dim wc As WorkbookConnection
    On Error GoTo unknownConn
    Set wc = ThisWorkbook.Connections(Connection)
    On Error GoTo errorhandler
        
    If wc.Type = xlConnectionTypeOLEDB Then
        If wc.OLEDBConnection.OLAP = True Then
          conn.ConnectionString = Mid(wc.OLEDBConnection.Connection, 7)
          conn.Open
          Set rec = conn.OpenSchema(32, Array(„“, „“, wc.OLEDBConnection.CommandText))
          CubeProcessed = rec.Fields(„LAST_DATA_UPDATE“).Value
          Exit Function
           
        Else
            CubeProcessed = „This is not an OLAP Connection“
        End If
    Else
        CubeProcessed „This is not an OLEDB Connection“
    End If
   
   
    Exit Function
   
unknownConn:
   
    CubeProcessed = „unknown Connection“: Exit Function
   
errorhandler:
   
    CubeProcessed = Err.Description
   

End Function

Advertisements