EPM Refreshing dialog - how to suppress?

[Former Member]

Is there an API for VBA that will refresh an epm report without showing all of the EPM update messages (like refreshing default report, etc.). I want to replace those with my own. Currently I'm calling the refresh via refreshActiveSheet and refreshActiveReport.

[Former Member]

Hi John,

That's quite a unique and strange requirement. Unfortunately that's not possible! Unless you work with SAP developers who developed that functionality.... . But why do you need to hide those statements?

Regards,

JP

[Former Member]

John,

Tried a piece of code to at least finish the dialogues faster for Refresh...Tested for 100 rows...(takes about 5 6 ms for Refresh).

Reference from this thread Disable the Refresh and Save Data tab in excel ... | SCN

Try this:

Option Explicit

' Set WinAPI Timer

Public Declare Function SetTimer Lib "user32" ( _

    ByVal hwnd As Long, _

    ByVal nIDEvent As Long, _

    ByVal uElapse As Long, _

    ByVal lpTimerFunc As Long) As Long

' Kill WinAPI Timer

Public Declare Function KillTimer Lib "user32" ( _

    ByVal hwnd As Long, _

    ByVal nIDEvent As Long) As Long

' Global var for timer

Public lngTimerID As Long

Dim epm As New FPMXLClient.EPMAddInAutomation

Dim blnMyRef As Boolean

Public Sub Button1_Click()

    blnMyRef = True

    epm.RefreshActiveSheet

    blnMyRef = False

    MsgBox "Refreshed"

End Sub

Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)

    If nIDEvent = lngTimerID Then

        KillTimer 0&, lngTimerID

    End If

End Sub

Hope this helps....

Regards,

JP