Code: Select all
Sub TM1PerspectivesVersion()
Dim strVersion As String
strVersion = Application.Run("buildnumber")
Debug.Print strVersion
End Sub
@Admins-please move to Tips and tricks if useful as I cannot post directly.
Code: Select all
Sub TM1PerspectivesVersion()
Dim strVersion As String
strVersion = Application.Run("buildnumber")
Debug.Print strVersion
End Sub
Code: Select all
Option Explicit
Declare Sub TM1SystemBuildNumber_VB Lib "tm1api.dll" (ByVal str As String, ByVal Max As Integer)
Public Function GetTM1ApiVersion() As String
Dim strVersion As String
strVersion = String(100, Chr(32))
TM1SystemBuildNumber_VB strVersion, 100
GetTM1ApiVersion = Trim(strVersion)
End Function