Hello Dmitry,
note https://css.wdf.sap.corp/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/sapnotes/index2.htm?numm=0001911177 describes a fix that is available with Analysis Office 1.4 SP 4.
In addition I add a VBA sample where that error handling is described:
' defined in a module
Public Function Callback_BeforePlanDataSave() As Boolean
ExecPF ("PlanFunctionX")
End Function
Function ExecPF(PF_Alias As String) As Boolean
Dim lastError As Variant
Dim PFExecSuccesful As Boolean
Dim MessageLogWithErrors As Boolean
ExecPF = False
PFExecSuccesful = Application.Run("SAPExecutePlanningFunction", "PF_1")
If PFExecSuccesful = False Then
Call SAPGetPropertyLastError
Exit Function
End If
Dim listOfErrorMsgs As Variant
listOfErrorMsgs = Application.Run("SAPListOfMessages", "ERROR")
If IsError(listOfErrorMsgs) Then
Call SAPGetPropertyLastError
Exit Function
End If
If IsArray(listOfErrorMsgs) Then
If UBound(listOfErrorMsgs) > 0 Then
' access last error
Call SAPGetPropertyLastError
Exit Function
End If
End If
ExecPF = True
End Function
Sub SAPGetPropertyLastError()
Dim lastError
lastError = Application.Run("SAPGetProperty", "LastError")
If lastError(1) <> 0 Then
MsgBox (lastError(2))
Else
MsgBox ("No further information available")
End If
End Sub
hope this helps, karim