TM1 Forum

Error 438 to execute TI process from macro for PAX addin.

Public Sub PAX_TI_Process(sHost As String, sServer As String, sProcessName As String, Optional sParam1 As String, Optional sParam2 As String, Optional sParam3 As String)

On Error GoTo HANDLER:
Dim oMessageSuppressor As CognosOfficeMessageSuppressor

'Use the message suppressor to turn off all Cognos Office messages.
Set oMessageSuppressor = New CognosOfficeMessageSuppressor

Dim sTIParamList As String

If Not IsMissing(sParam1) Then sTIParamList = sParam1
If Not IsMissing(sParam2) Then sTIParamList = sTIParamList + "," + sParam2
If Not IsMissing(sParam3) Then sTIParamList = sTIParamList + "," + sParam3

'Call the Cognos Office Automation object to refresh the data.
Application.COMAddIns("CognosOffice12.Connect").Object.AutomationServer.Application("COR", "1.1").ExecuteFunction sHost, sServer, sProcessName, sTIParamList

Exit Sub
HANDLER:
MsgBox "Error PAX API - TI_Process (ExecuteFunction)- " & Err.Number
End Sub

Public Sub test()
Call PAX_TI_Process("host address:port", "server name", "process name")
End Sub

i tried to check if it is connected to the server, using this
curl -v telnet://host address:port
it connects. Not sure where I am doing wrong.

Can you get it to work for a process that has no parameters ?

It didnt work without parameters as well. I tried both with parameters and without parameters.

Error 438 in VBA generally means the object you are trying to invoke a property / method from is not a valid binding.

Do you have the Planning Analytics for Excel add-in loaded and fully enabled?