При выполнении любой задачи код VBA ждет от SAP выполнения задачи, при длительных операциях, к примеру выгрузки таблиц, это не совсем удобно, EXCEL подвисает на это время. Но мы можем отправить задачу в SAP и завершить выполнения макроса следующим образом:

Sub tst ()

   ' Тут Ваш код
   

   ' Вставляем в самый конец
    AppActivate session.FindById("wnd[0]").Text ' Выводим окно SAP поверх остальных окон и делаем его активным
    
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    
    Application.Wait (Now + TimeValue("0:00:01")) ' Пауза
    
    WshShell.SendKeys "{F8}" ' Нажатие нужной нам кнопки на клавиатуре
    
    Set WshShell = Nothing
End Sub
Add comment

powered by social2s