Re: Sap Standard Screen Selection

Thanks, i have used your code to develop a work around,

Problem:

VBA will crash the SapGui when interacting with certain items contained in a Tab Strip Sub Screen,

Solution:

VBS scripts do not cause this behavior use VBA to Write VBS Script file and launch the file using the ShellandWait function CPearson Shell And Wait

Section in VBA Code

1. Q = 0
2.    
3.     For i = 0 To session.findById("wnd[0]/usr").Children.Count() - 1
4. ReFindTabs:
5.       Set Tabs = session.findById("wnd[0]/usr").Children.Item(CLng(i))
6.       If Tabs.Type() = "GuiTabStrip" Then
7.         For J = Q To Tabs.Children.Count() - 1
8.           Tabs.Children.Item(CLng(J)).Select
9.         EmptyTextFields session
10.         Call ShellAndWait("cscript ""C:\Test\TabStrip.VBS""", 0, vbHide, PromptUser)
11.         Q = Q + 1
12.         GoTo ReFindTabs
13.         Next
14.       End If
15.     Next

VBS Code File (Thanks to Stefan Schnell for the content)

1. If Not IsObject(application) Then
2.    Set SapGuiAuto  = GetObject("SAPGUI")
3.    Set application = SapGuiAuto.GetScriptingEngine
4. End If
5. If Not IsObject(connection) Then
6. Set connection = application.Children(SapApp.Children.Count - 1)
7. End If
8. If Not IsObject(session) Then
9.    Set session    = application..Children(SapApp.Children.Count - 1).sessions(SapApp.Children(SapApp.Children.Count - 1).sessions.Count - 1)
12. End If
13. If IsObject(WScript) Then
14.    WScript.ConnectObject session,     "on"
15.    WScript.ConnectObject application, "on"
16. End If
21.         Dim cntObj, i, Child
22.       On Error Resume Next  
23.       cntObj = obj.Children.Count()  
24.       If cntObj > 0 Then  
25.         For i = 0 To cntObj - 1  
26.           Set Child = obj.Children.Item(CLng(i))  
27.           EmptyPushEntries Child  
28.           If InStr(Child.ID(), "/usr/") Then  
29.             If InStr(Child.ID(), "-VALU_PUSH") Then  
30.               If Child.IconName() = "BGMORE" Then 
31.                 Child.Press() 
32.                 session.findById("wnd[1]").sendVKey 16 
33.                 session.findById("wnd[1]").sendVKey 8 
34.               End If 
35.             End If  
36.           End If  
37.         Next  
38.       End If  
39.       On Error Goto 0  
40.      End Sub