Hi gurus,
I´m trying to upload multiple registries for a certain customizing task in SPRO (SPRO > Material Management > Purchasing > Purchase Order > Set Up Stock Transport Order > Assign Document Type, One-Step Procedure, Underdelivery Tolerance).
I have followed the script creation instructions given in this link:
http://scn.sap.com/docs/DOC-57020
Everything looks fine until it comes the moment when it has to upload line by line of the source Excel file. Instead of uploading each of the lines of the Excel file, (starting from the Excel file´s second line due to the first is for column heather) it uploads values "COL1", "COL2" and "COL3" and them brings the error mentioned in this post (The Control could not be found by id").
I have an Excel with 5 columns:
SuppyingPlant named as "SP" column in the xls file, equals to column 1 of the xls file
ReceivingPlant named as "RP" column in the xls file, equals to column 2 of the xls file
DocType named as "DT" column in the xls file, equals to column 3 of the xls file
OneStep flag named as "OS" column in the xls file (this is a flag), equals to column 4 of the xls file
Tolerance (empty for all the registries), equals to column 5 of the xls file
and 2000 lines=registries for sap.
So the idea is the script to take care of performing this task 2000 times while I have a coffee ![]()
.
I look forward to receiving your comments. Many thanks to all in advance.
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
REM ADDED BY EXCEL *************************************
Dim objExcel
Dim objSheet, intRow, i
Set objExcel = GetObject(,"Excel.Application")
Set objSheet = objExcel.ActiveWorkbook.ActiveSheet
For i = 2 to objSheet.UsedRange.Rows.Count
COL1 = Trim(CStr(objSheet.Cells(i, 1).Value)) 'Column1
COL2 = Trim(CStr(objSheet.Cells(i, 2).Value)) 'Column2
COL3 = Trim(CStr(objSheet.Cells(i, 3).Value)) 'Column3
COL4 = Trim(CStr(objSheet.Cells(i, 4).Value)) 'Column4
COL5 = Trim(CStr(objSheet.Cells(i, 5).Value)) 'Column5
REM ADDED BY EXCEL *************************************
session.findById("wnd[0]/tbar[0]/okcd").text = "/nspro"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[5]").press
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").expandNode "02 1 19"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").topNode = "01 1 1"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").expandNode "03 2 3"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").topNode = "01 1 1"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").expandNode "04 3 65"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").topNode = "03 2 3"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").expandNode "05 4 24"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").selectItem "06 4 29","2"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").ensureVisibleHorizontalItem "06 4 29","2"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").topNode = "04 3 27"
session.findById("wnd[0]/usr/cntlTREE_CONTROL_CONTAINER/shellcont/shell").clickLink "06 4 29","2"
session.findById("wnd[0]/tbar[1]/btn[5]").press
session.findById("wnd[0]/usr/tblSAPL0ME6TCTRL_V_T161W/chkV_T161W-UML1S[3,0]").selected = false
session.findById("wnd[0]/usr/tblSAPL0ME6TCTRL_V_T161W/chkV_T161W-TOLKZ[4,0]").selected = false
session.findById("wnd[0]/usr/tblSAPL0ME6TCTRL_V_T161W/ctxtV_T161W-RESWK[0,0]").text = "SP"
session.findById("wnd[0]/usr/tblSAPL0ME6TCTRL_V_T161W/ctxtV_T161W-WERKS[1,0]").text = "RP"
session.findById("wnd[0]/usr/tblSAPL0ME6TCTRL_V_T161W/ctxtV_T161W-BSART[2,0]").text = "DT"
session.findById("wnd[0]/usr/tblSAPL0ME6TCTRL_V_T161W/chkV_T161W-TOLKZ[4,0]").setFocus
session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/tbar[0]/btn[11]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
REM FINALIZATION CONTROL CHECK ************************
aux=col1 & " " & col2 & " " & col3 & " " & col4 & " " & col5
CreateObject("WScript.Shell").run("cmd /c @echo %date% %time% " & aux & " >> C:\Users\nbacich\Desktop\SCRIPT\Test1.txt")
next
msgbox "Process Completed"
REM FINALIZATION CONTROL CHECK ************************
. 
