Skip to Content
0
Aug 21, 2023 at 07:07 AM

Capture message from perfomance assistant

37 Views Last edit Aug 19, 2023 at 06:38 PM 3 rev

Ei pessoal

Você pode me ajudar, estou criando um script que captura o texto do assistente de perfomance SAP e transfere essas informações para o Excel. Estou tentando desta forma, mas não está funcionando.

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "me51n"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[17]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0010/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:3303/tabsREQ_ITEM_DETAIL/tabpTABREQDT4/s subTABSTRIPCONTROL1SUB:SAPLMEGUI: 3321/chkMEREQ3321-EBAKZ"). Selecionado = Falso
session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0010/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:3303/tabsREQ_ITEM_DETAIL/tabpTABREQDT4/s subTABSTRIPCONTROL1SUB:SAPLMEGUI: 3321/chkMEREQ3321-EBAKZ").SetFocus
session.findById("wnd[0]").sendVKey 11
session.findById("wnd[1]/usr/chk[1,5]").Selecionado = Verdadeiro
session.findById("wnd[1]/usr/chk[1,5]").SetFocus
session.findById("wnd[1]/tbar[0]/btn[43]").press
Se session.findById("wnd[0]/sbar").messagetype = "E" Então
    Status = sessão.ActiveWindow.findById("sbar").Text
Fim se
Cells(1, 1).Value = Status
session.findById("wnd[0]/shellcont").Fechar
session.findById("wnd[1]").Fechar
session.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0010/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB2:SAPLMEGUI:3303/tabsREQ_ITEM_DETAIL/tabpTABREQDT4/s subTABSTRIPCONTROL1SUB:SAPLMEGUI: 3321/chkMEREQ3321-EBAKZ"). Selecionado = Verdadeiro
session.findById("wnd[0]/tbar[0]/btn[11]").press<br>