excel 当SAP GUI弹出消息说未找到数据时，如何继续运行VBA宏？

9bfwbjaz 于 2023-06-25 发布在其他

关注(0)|答案(1)|浏览(155)

当SAP GUI脚本通过SAP GUI搜索数据并没有找到任何东西时，它会向我们发送一条弹出消息，说“它没有找到任何数据”，如何保持宏运行，因为稍后还有其他事务。

Sub FOS()
 ...
      
On Error GoTo ConsoleAbs
Set Sapgui = GetObject("SAPGUI")
On Error GoTo 0

'transaction1
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "S_ALR_87011964"
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/ctxtBUKRS-LOW").Text = "0092"
...

'transaction2

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "S_ALR_87012039"
session.findById("wnd[0]/tbar[0]/btn[0]").press
...

End Sub

我一直在努力

On Error GoTo ConsoleAbs
Set Sapgui = GetObject("SAPGUI")
On Error GoTo 0

但我不确定这是正确的解决方案

excel

来源：https://stackoverflow.com/questions/56338207/how-to-continue-running-a-vba-macro-when-an-sap-gui-popup-message-says-no-data-f

1条答案

按热度按时间

k10s72fa1#

您可以尝试以下操作。
例如：

Sub FOS()
Set SapGuiAuto = GetObject("SAPGUI")
Set SAP_Application = SapGuiAuto.GetScriptingEngine
Set Connection = SAP_Application.Children(0)
Set session = Connection.Children(0)

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nS_ALR_87011964"
session.findById("wnd[0]").sendVKey 0
...
session.findById("wnd[0]/tbar[1]/btn[8]").press
If session.ActiveWindow.Name = "wnd[1]" Then
   If session.findById("wnd[1]").Text = "Information" Then session.findById("wnd[1]/tbar[0]/btn[0]").press
else
  'do something 
end if

session.findById("wnd[0]/tbar[0]/okcd").Text = "S_ALR_87012039"
session.findById("wnd[0]/tbar[0]/btn[0]").press
...
session.findById("wnd[0]/tbar[1]/btn[8]").press
If session.ActiveWindow.Name = "wnd[1]" Then
   If session.findById("wnd[1]").Text = "Information" Then session.findById("wnd[1]/tbar[0]/btn[0]").press
else
  'do something 
end if
End Sub

问候，ScriptMan

赞(0）回复(0）举报 2023-06-25

我来回答

excel 当SAP GUI弹出消息说未找到数据时，如何继续运行VBA宏？

1条答案

相关问题

热门标签

最新问答