VBA驱动SAP GUI完成界面元素值初始化

     小爬日常利用VBA完成SAP GUI自动化时,经常被这个问题困扰:我们进入一个事务代码界面时,如FBL1N(供应商行项目显示),很多的 GuiTextField(文本框)对象、GuiCheckBox(复选框)对象都已经有值了。我们如果忘了对这些对象的值初始化,可能SAP执行后的结果并非我们预期的那样,如下图所示。

VBA驱动SAP GUI完成界面元素值初始化

 

  针对这个问题,大部分童鞋很容易想到的方案是:把每个文本框的text属性设为空字符串,把每个复选框的勾选状态都设置为【不勾选,具体代码如下:

session.findById("wnd[0]/usr/ctxtRACCT-LOW").text = "" '文本框初始化  session.findById("wnd[0]/usr/chkX_SHBV").selected = false 'checkBox值初始化

  该方法未尝不可,但是需要在SAP脚本录制阶段,对每个这类元素都初始化并记录后台脚本,属实麻烦,也容易产生遗漏。

  还有一个方法是,关闭SAP连接,要求用户重新登录后,再使用我们的脚本工具,此时SAP已经对会话界面的参数完成了初始化。可该方法如果站在用户角度来思考,难免让人觉得有些非人性化,就跟解决不了别人电脑问题,就让别人重启电脑试下的感觉,小爬总觉得它不应该成为我们的最优解。

  小爬翻阅了N多资料,苦心人天不负,总算总结出了更通用的方法:对会话元素层层往下穷举子元素,如果发现子元素为文本框,就将text属性置为"",如果发现子元素为复选项,就将其selected属性改为false即可。具体用VBA代码实现的话,还需要知道如何写递归函数,示例如下:

Sub SessionElementInitialization()  '对界面元素的值进行初始化,文本框值置为空,复选框状态改为【未勾选】 Dim UserArea As Object      If Not IsObject(SAPApplication) Then        Set SapGuiAuto = GetObject("SAPGUI")        Set SAPApplication = SapGuiAuto.GetScriptingEngine     End If     If Not IsObject(Connection) Then        Set Connection = SAPApplication.Children(0)     End If     If Not IsObject(session) Then        Set session = Connection.Children(0)     End If     If IsObject(WScript) Then        WScript.ConnectObject session, "on"        WScript.ConnectObject SAPApplication, "on"     End If     Set UserArea = session.findByID("wnd[0]/usr")      Clear_Fields UserArea     MsgBox "已完成!"  End Sub '_______________________________  Sub Clear_Fields(Area As Object)     Set SAPApplication = GetObject("SAPGUI").GetScriptingEngine     Dim Obj As Object     Dim NextArea As Object     On Error Resume Next     For i = 0 To Area.Children.Count - 1         Set Obj = Area.Children(CInt(i))         If Obj.ContainerType = True Then             If Obj.Children.Count > 0 Then                 Set NextArea = SAPApplication.findByID(Obj.ID)                 Clear_Fields NextArea             End If         End If         If Obj.Type Like "*TextField*" And Obj.changeable = True Then             Obj.Text = ""         ElseIf Obj.Type = "GuiCheckBox" Then             Obj.Selected = False         End If     Next i End Sub

  相信你们已经被这个问题困扰很久了,赶紧用上面的方法试下吧。对了,如果你是python爱好者,如何把上面这段VBA脚本转成python版本,相信你已经有自己的答案了(*^_^*)。

   欢迎扫码关注我的公众号 获取更多爬虫、数据分析的知识!

VBA驱动SAP GUI完成界面元素值初始化

 

发表评论

相关文章