TM1 Forum

Code: Select all

Public Sub listElements(sServerName, sDimensionName)
    Dim hUser As Long
    Dim hPool As Long
    Dim hServerHandle As Long
    Dim hDim As Long
    Dim eHCount As Long
    Dim sErr As String * 100
    Dim eCount As Integer
    Dim i As Integer
    
    hUser = TM1_API2HAN()
    
    If hUser = 0 Then
        MsgBox "No Connect to API!"
    End If
    
    hServerHandle = TM1SystemServerHandle(hUser, sServerName)
    
    If hServerHandle = 0 Then
        MsgBox "No Connect to Server"
    End If
    
    hPool = TM1ValPoolCreate(hUser)
    
    hDim = TM1ObjectListHandleByNameGet(hPool, hServerHandle, TM1ServerDimensions(), TM1ValString(hPool, sDimensionName, 0))
    
    If TM1ValObjectType(hUser, hDim) = TM1ValTypeError() Then
      TM1ValStringGet_VB hUser, hDim, sErr, 100
      MsgBox sErr
      TM1ValPoolDestroy (hPool)
      Exit Sub
    End If
    
    eHCount = TM1ObjectListCountGet(hPool, hDim, TM1DimensionElements())
    
    eCount = TM1ValIndexGet(hUser, eHCount)
    
    MsgBox eCount
    
    TM1ValPoolDestroy (hPool)
    
    'For i = 1 To eCount
      'TM1ObjectListHandleByIndexGet(hpool,hdim,tm1dimensionelements(),i)
        
     ' i = i + 1
    'Next
            
End Sub

Code: Select all

Dim intCheckType As Integer
intCheckType = TM1ValType(hUser, eHCheck)
Debug.Print intCheckType

Code: Select all

Sub ListElements(ServerName As String, DimensionName As String)

Dim s_FullDimName As String
Dim l_DimSiz As Long, l_Idx As Long

On Error GoTo ExitPoint

s_FullDimName = ServerName & ":" & DimensionName

l_DimSiz = Application.Run("DimSiz", s_FullDimName)

If l_DimSiz = 0 Then

    Debug.Print s_FullDimName & " has no elements."

Else

    Debug.Print s_FullDimName & " has " & _
     l_DimSiz & " element" & IIf(l_DimSiz = 1, ".", "s.")

    For l_Idx = 1 To l_DimSiz
    
        Debug.Print Application.Run("DimNm", s_FullDimName, l_Idx)
    
    Next

End If

ExitPoint:

End Sub