Код VBA для проверки появления предупреждения в SAP - PullRequest
Новая
       11

Код VBA для проверки появления предупреждения в SAP

0 голосов
/ 05 июля 2018

У меня есть код Excel VBA для загрузки некоторых данных из SAP, он работает нормально. Но есть один конкретный момент в процессе, когда SAP может отображать предупреждающее сообщение: «Предупреждение: время ответа системы», «Было выбрано большое количество позиций [...]». Это не появляется для всех прогонов кода. Вопрос в том, как мне проверить, может ли это сообщение использовать if / else в Excel VBA?

1 Ответ

0 голосов
/ 05 июля 2018

Я создал класс для этого, и внутри класса у меня есть 

Function StatusBarWarning() As Boolean

Dim objSapStatusBar As Object

    On Error GoTo ErrSapStatusBarWarning
    StatusBarWarning = True

    Set objSapStatusBar = mSapSes.findById("wnd[0]/sbar")
    If objSapStatusBar.messagetype = "W" Then
        StatusBarWarning = True
    Else
        StatusBarWarning = False
    End If

    Exit Function

ErrSapStatusBarWarning:
    StatusBarWarning = True

End Function

mSapSes - это ссылка на сессию SapGui

...