Report Option -> Refresh -> Refresh Data on Open
Reference to FPMXLClient is set
Copy code into a modul (must be a module)
Works...
Dim bInitial As Boolean
Dim api As New FPMXLClient.EPMAddInAutomation
Public Sub doit()
Dim b As Boolean
Dim sBla As String
sBla = api.GetActiveConnection(Application.Sheets("Tabelle1"))
b = api.SetContextMember(sBla, "ACCTDETAIL", "F_ICPZ")
End Sub
Public Function BEFORE_REFRESH()
If Not bInitial Then
Call doit
bInitial = True
End If
BEFORE_REFRESH = True
End Function