小爬日常利用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版本，相信你已经有自己的答案了(*^_^*)。

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