小爬日常利用VBA完成SAP GUI自动化时，经常被这个问题困扰：我们进入一个事务代码界面时，如FBL1N（供应商行项目显示），很多的 GuiTextField（文本框）对象、GuiCheckBox（复选框）对象都已经有值了。我们如果忘了对这些对象的值初始化，可能SAP执行后的结果并非我们预期的那样，如下图所示。
针对这个问题，大部分童鞋很容易想到的方案是：把每个文本框的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版本，相信你已经有自己的答案了(*^_^*)。
欢迎扫码关注我的公众号 获取更多爬虫、数据分析的知识！
