How to Create Sap Gui Scripting

SAP GUI Scripting syntax similar like VBScript and you can used setup your testing data or data migration from legacy system to SAP. Is easy and less time to create sap gui scripting compared to LSMW. Sap Gui Scripting it can migrated master data and Transaction data as well. I will showed you how to create it.

Here the step by step to create your sap gui script


1. Click on the Script Recording and Playback
















2. Click on More button, you can changed the filename and path.









3. Click on Record button and type "SU01" to lock user id.

4. Once you have completed then click Stop button.

5. Here the script you recorded.

If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.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 application, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "su01"                                 'T-code
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtUSR02-BNAME").text = "test1"             'User ID
session.findById("wnd[0]/usr/ctxtUSR02-BNAME").caretPosition = 5
session.findById("wnd[0]/tbar[1]/btn[29]").press                                          'preess the locked button
session.findById("wnd[1]/tbar[0]/btn[6]").press                                            'Locked user id
session.findById("wnd[0]/tbar[0]/btn[3]").press                                            'Exit SU01 screen

6. Copy this script into excel macros and insert extra code in the Macros. Remember to replace "Application" to SAPApp

Sub lockeduserid()

If Not IsObject(SAPApp) Then
   Set SapGuiAuto = GetObject("SAPGUI")
   Set SAPApp = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
   Set Connection = SAPApp.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 SAPApp, "on"
End If
'Manual add the rows highlight in yellow color.
For i = 1 To 10                                                           'go to next rows

Range("A" & i).Select                                                     'Column
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "su01"                     'T-code
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtUSR02-BNAME").Text = ActiveCell.Value    'User ID
session.findById("wnd[0]/usr/ctxtUSR02-BNAME").caretPosition = 5
session.findById("wnd[0]/tbar[1]/btn[29]").press                          'preess the locked button
session.findById("wnd[1]/tbar[0]/btn[6]").press                           'Locked user id
session.findById("wnd[0]/tbar[0]/btn[3]").press                           'Exit SU01 screen
Next

End Sub

7. tried put your sap id in column A rows 1 to 10. (Don't test it in Product environment)

If you have any question please drop message in contact form. 

Comments

Post a Comment

Popular posts from this blog

Excel VBA connect SAPRFC

Image
This is simple and you don't have to install those development tools to run the code. Is just required Microsoft excel you can connect into your SAP R/3. No other tools required, no need the extra software installed and mainly is using Excel VBA run the code and you able to retrieve/import data on your SAP R/3 data. Required item: This is the items required to start your tutorial: Microsoft excel. SAP Login id and password. SAP program with remote function call. I will show your my customized RFC coding in my SAP ABAP. The RFC program name is "ZMM_PRPORS" SAP Gui installed One more setting you have to do before start the coding. You have to add SAP reference below: 1. Go to Developer tab -> Click the Visual Basic: 2. Go to Tools -> References 3. Click those SAP references show as below and click OK. Excel VBA Coding Double click on the sheet1 and pasted code below. Please fill in your SAP ip addres
Read more

Simple macros to re-arrange column into upload format

Image
Excel macros to re-arrange column from text file into rows format. Please watch the video below. 1.  Create 2 Macros name in you excel. 2.  All Macros code have to paste in  Module1. 3.  Copy Macros's code below. Sub Remove() '   Delete title line     Rows("1:5").Select     Selection.Delete Shift:=xlUp      '     For i = 1 To 9000         Range("A" & i).Select         If Left(ActiveCell.Value, 1) = "-" Then             Rows(i & ":" & i).Select             Selection.Delete Shift:=xlUp         End If     Next      '   Delete column B and D     Columns("B:B").Select     Selection.Delete Shift:=xlToLeft          Columns("D:D").Select     Selection.Delete Shift:=xlToLeft          Columns("F:F").Select     Selection.Delete Shift:=xlToLeft '   Paste title in Sheet2     Sheets("Sheet1").Select     Range("A1:A9&q
Read more