Как из VBA активировать запущенное окно SAP после действий между книгами EXCEL

KalanNet

Здравствуйте, помогите, пожалуйста, активировать запущенное окно с транзакцией ZMM4TR021, которое деактивируется после сессии с EXCEL-книгами.

Code:

Sub OpenSessionFromLogon()
Dim SapGui
Dim Applic
Dim connection
Dim session
Dim WSHShell
Shell “C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe”, vbNormalFocus
Set WSHShell = CreateObject(“WScript.Shell”)
Do Until WSHShell.AppActivate(“SAP Logon “)
Application.Wait Now + TimeValue(“0:00:02”)
Loop
Set WSHShell = Nothing
Set SapGui = GetObject(“SAPGUI”)
Set Applic = SapGui.GetScriptingEngine
Set connection = Applic.OpenConnection(“‘ ******* – Automatic Logon”, True)
Set session = connection.Children(0)

Windows(“Data.xlsm”).Activate
Sheets(“Start”).Select
Columns(“C:C”).Select
Selection.Copy
Application.Wait Now + TimeValue(“0:00:01”)

session.findById(“wnd[0]/tbar[0]/okcd”).Text = “zmm4tr021”
session.findById(“wnd[0]”).sendVKey 0
Application.Wait Now + TimeValue(“0:00:01”)
session.findById(“wnd[0]/usr/ctxtP_VARI”).Text = “FOR_EEDC_INB”
session.findById(“wnd[0]/usr/ctxtP_VARI”).SetFocus
session.findById(“wnd[0]/usr/ctxtP_VARI”).caretPosition = 12
session.findById(“wnd[0]/usr/btn%_S_SHPTAG_%_APP_%-VALU_PUSH”).press
session.findById(“wnd[1]/tbar[0]/btn[24]”).press
session.findById(“wnd[1]/tbar[0]/btn[8]”).press
session.findById(“wnd[0]/tbar[1]/btn[8]”).press
session.findById(“wnd[0]/mbar/menu[0]/menu[3]/menu[1]”).Select
session.findById(“wnd[1]/tbar[0]/btn[11]”).press

Application.OnTime Now + TimeValue(“00:00:7”), “SAP_3LTS”
Set session = Nothing

Windows(“Data.xlsm”).Activate
Sheets(“zmm4tr021”).Select
With Sheets(“zmm4tr021”).ListObjects(“Table3”)

‘Check If any data exists in the table
If Not .DataBodyRange Is Nothing Then
‘Clear Content from the table
.DataBodyRange.ClearContents
Application.Wait Now + TimeValue(“0:00:01”)
End If

End With

Windows(“export.xlsx”).Activate
Sheets(“Sheet1”).Select
Application.Wait Now + TimeValue(“0:00:01”)
Application.DisplayAlerts = False
Cells.Select
Selection.Copy
Workbooks(“export.xlsx”).Close SaveChanges:=False
Application.Wait Now + TimeValue(“0:00:01”)

Windows(“Data.xlsm”).Activate
Sheets(“zmm4tr021”).Select
Range(“A1”).Select
ActiveSheet.Paste
Application.Wait Now + TimeValue(“0:00:01”)

Windows(“Data.xlsm”).Activate
Sheets(“zmm4tr021”).Select
Columns(“L:L”).Select
Selection.Copy
Application.Wait Now + TimeValue(“0:00:01”)

‘How to activate SAP windows again?

End Sub

pberezin

Code:

Windows(“Data.xlsm”).Activate
Sheets(“zmm4tr021”).Select
Range(“A1”).Select
ActiveSheet.Paste
Application.Wait Now + TimeValue(“0:00:01”)

Зачем такой жуткий код с переключением между книгами? Макрорекордером штатным видимо записывали. Обращайтесь напрямую к ячейкам в другой книге.

Code:

Workbooks(“Data.xlsm”).WorkSheets(“zmm4tr021”).Range(“A1”).Paste

и желательно следом после копипаста каждого вычищать буфер обмена.

Code:

Application.Cutcopymode = false

и вот такую вот дичь зачем? DoEvents просто вставляйте, если желаете чтобы эксель надолго не зависал.

Code:

Application.Wait Now + TimeValue(“0:00:01”)

KalanNet

pberezin написал:

Code:

Windows(“Data.xlsm”).Activate
Sheets(“zmm4tr021”).Select
Range(“A1”).Select
ActiveSheet.Paste
Application.Wait Now + TimeValue(“0:00:01”)

Зачем такой жуткий код с переключением между книгами? Макрорекордером штатным видимо записывали. Обращайтесь напрямую к ячейкам в другой книге.
Код хорошо работает без единого бага в течении больше 100 запусков

Code:

Workbooks(“Data.xlsm”).WorkSheets(“zmm4tr021”).Range(“A1”).Paste
Данный код работает исключительно при копировании. При вставке каждый раз выдает ошибку

и желательно следом после копипаста каждого вычищать буфер обмена.
Спасибо, добавил

Code:

Application.Cutcopymode = false

и вот такую вот дичь зачем? DoEvents просто вставляйте, если желаете чтобы эксель надолго не зависал.
DoEvents плохо работает с SAP, другими словами не успевает копировать данные с екселя в САП

Code:

Application.Wait Now + TimeValue(“0:00:01”)

Меня устраивает мой код, за исключением необходимости постоянно запускать новую сессию SAP прерывая предыдущую. VBS без проблем находит уже запущенную сессию, с VBA так не работает

pberezin

Цитата:

Меня устраивает мой код

Такой код годится только для опытного пользователя экселя. Если отдать обычному конечному пользователю такой макрос, он рано или поздно начнёт переключаться между книгами в процессе работы макроса, и конструкции типа ActiveSheet, ActiveWorkbook сыграют с ним злую шутку.

Цитата:

VBS без проблем находит уже запущенную сессию, с VBA так не работает

На приличных продуктивах при попытке запуска левых vbs-скриптов начинают визжать всякие антивирусные защиты, информбезопасность лютует и проч. Просто те скрипты, которые ваяет родной макрорекордер гуискрипта - они вполне вклеиваются в vba-редактор прям в саму экселину, и работают оттуда. Получается целостная эксель-автоматизация, а не россыпь скриптов на диске. На экселины sap-продуктивы ругаются реже, т.к. довольно тесная интеграция.

Правила форума

Как из VBA активировать запущенное окно SAP после действий между книгами EXCEL

Кто сейчас на конференции