Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
Question from Nureya on Dec 2 at 12:49 PM Hello guys,
Am trying to do SAP scripting and create a PM plan in IP41. So I opened the scriptor and recorded and got the script. Then I edited the script to run it from excel work book. Whenever I execute the script, I have the excel sheet open and I get an error in SAP as "Invalid character". Can someone help me to fix this..this is totally driving me crazy for 2 days now. Help appreciated.
Here is the code
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))'M.TEXT
COL2 = Trim(CStr(objSheet.Cells(i, 2).Value))'FLOC#
COL3 = Trim(CStr(objSheet.Cells(i, 3).Value))'ORDER TYPE
COL4 = Trim(CStr(objSheet.Cells(i, 4).Value))'CYCLE TEXT
COL5 = Trim(CStr(objSheet.Cells(i, 5).Value))'UOM
COL6 = Trim(CStr(objSheet.Cells(i, 6).Value))'DESCRIPTION
REM ADDED BY EXCEL *************************************
session.findById("wnd[0]/tbar[0]/okcd").text = "/nip41"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_HEAD:SAP LIWP3:6000/txtRMIPM-WPTXT").text = COL1
session.findById("wnd[0]/usr/subSUBSCREEN_HEAD:SAP LIWP3:6000/txtRMIPM-WPTXT").caretPosition = 13
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_MITEM:SA PLIWP3:8002/tabsTABSTRIP_ITEM/tabpT
\11/ssubSUBSCREEN_BODY2:SAPLIWP3:8022/subSUBSCREEN_ ITEM_1:SAPLIWO1:0100/ctxtRIWO1-TPLNR").text = COL2
session.findById("wnd[0]/usr/subSUBSCREEN_MITEM:SA PLIWP3:8002/tabsTABSTRIP_ITEM/tabpT
\11/ssubSUBSCREEN_BODY2:SAPLIWP3:8022/subSUBSCREEN_ ITEM_1:SAPLIWO1:0100/ctxtRIWO1-TPLNR").caretPosition = 5
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_MITEM:SA PLIWP3:8002/tabsTABSTRIP_ITEM/tabpT
\11/ssubSUBSCREEN_BODY2:SAPLIWP3:8022/subSUBSCREEN_ ITEM_2:SAPLIWP3:0500/ctxtRMIPM-AUART").text = COL3
session.findById("wnd[0]/usr/subSUBSCREEN_MITEM:SA PLIWP3:8002/tabsTABSTRIP_ITEM/tabpT
\11/ssubSUBSCREEN_BODY2:SAPLIWP3:8022/subSUBSCREEN_ ITEM_2:SAPLIWP3:0500/ctxtRMIPM-AUART").caretPosition = 4
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_MPLAN:SA PLIWP3:8001/tabsTABSTRIP_HEAD/tabpT
\01/ssubSUBSCREEN_BODY1:SAPLIWP3:8011/subSUBSCREEN_ CYCLE:SAPLIWP3:0205/txtRMIPM-ZYKL1").text = COL4
session.findById("wnd[0]/usr/subSUBSCREEN_MPLAN:SA PLIWP3:8001/tabsTABSTRIP_HEAD/tabpT
\01/ssubSUBSCREEN_BODY1:SAPLIWP3:8011/subSUBSCREEN_ CYCLE:SAPLIWP3:0205/ctxtRMIPM-ZEIEH").text = COL5
session.findById("wnd[0]/usr/subSUBSCREEN_MPLAN:SA PLIWP3:8001/tabsTABSTRIP_HEAD/tabpT
\01/ssubSUBSCREEN_BODY1:SAPLIWP3:8011/subSUBSCREEN_ CYCLE:SAPLIWP3:0205/txtRMIPM-PAK_TEXT").text = COL6
session.findById("wnd[0]/usr/subSUBSCREEN_MPLAN:SA PLIWP3:8001/tabsTABSTRIP_HEAD/tabpT
\01/ssubSUBSCREEN_BODY1:SAPLIWP3:8011/subSUBSCREEN_ CYCLE:SAPLIWP3:0205/txtRMIPM-PAK_TEXT").setFocus
session.findById("wnd[0]/usr/subSUBSCREEN_MPLAN:SA PLIWP3:8001/tabsTABSTRIP_HEAD/tabpT
\01/ssubSUBSCREEN_BODY1:SAPLIWP3:8011/subSUBSCREEN_ CYCLE:SAPLIWP3:0205/txtRMIPM-PAK_TEXT").caretPosition = 19
session.findById("wnd[0]").sendVKey 0
REM FINALIZATION CONTROL CHECK ************************
aux=COL1 & " " & COL2 & " " & COL3 & " " & COL4 & " " & COL5 & " " & COL6
CreateObject("WScript.Shell").run("cmd /c @echo %date% %time% " & aux & " >>
C:\SCRIPT\MP CREATION.txt")
next
msgbox "Process Completed"
REM FINALIZATION CONTROL CHECK ************************
Thanks
Nureya
| Reply to this email to post your response. __.____._ |   _.____.__ |
