带有GUI脚本的SAP前端服务器错误

2020-09-14 18:34发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


您好,当我尝试启动.vbs脚本时,出现错误

这是我的代码,请帮助

如果不是IsObject(application),则
    设置SapGuiAuto = GetObject(" SAPGUI")
    设置应用程序= SapGuiAuto.GetScriptingEngine
 万一
 如果不是IsObject(connection)然后
    设置连接= application.Children(0)
 万一
 如果不是IsObject(session)然后
    设置会话= connection.Children(0)
 万一
 如果IsObject(WScript)然后
    WScript.ConnectObject会话,"打开"
    WScript.ConnectObject应用程序,"打开"
 万一
 session.findById(" wnd [0]")。maximize






 昏暗的objExcel
 昏暗的objSheet,intRow,我
 设置objExcel = GetObject(," Excel.Application")
 设置objSheet = objExcel.ActiveWorkbook.ActiveSheet


 对于i = 2到objSheet.UsedRange.Rows.Count
 COL1 = Trim(CStr(objSheet.Cells(i,1).Value))'Column1
 COL2 = Trim(CStr(objSheet.Cells(i,2).Value))'Column2
 COL4 = Trim(CStr(objSheet.Cells(i,4).Value))'Column4
 COL5 = Trim(CStr(objSheet.Cells(i,5).Value))'Column5








 session.findById(" wnd [0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont [0]/shell")。doubleClickNode" F00016"
 session.findById(" wnd [0]/usr/txtRF05L-BELNR")。text =" COL1"
 session.findById(" wnd [0]/usr/ctxtRF05L-BUKRS")。text =" COL2"
 session.findById(" wnd [0]/usr/txtRF05L-GJAHR")。text =""
 session.findById(" wnd [0]/usr/txtRF05L-GJAHR")。setFocus
 session.findById(" wnd [0]/usr/txtRF05L-GJAHR")。caretPosition = 0
 session.findById(" wnd [0]")。sendVKey 0
 session.findById(" wnd [0]/titl/shellcont/shell")。pressContextButton"%GOS_TOOLBOX"
 session.findById(" wnd [0]/titl/shellcont/shell")。selectContextMenuItem"%GOS_VIEW_ATTA"
 session.findById(" wnd [1]/usr/cntlCONTAINER_0100/shellcont/shell")。currentCellColumn =" BITM_DESCR"
 session.findById(" wnd [1]/usr/cntlCONTAINER_0100/shellcont/shell")。selectedRows =" 0"
 session.findById(" wnd [1]/usr/cntlCONTAINER_0100/shellcont/shell")。pressToolbarButton"%ATTA_EXPORT"
 session.findById(" wnd [2]/usr/ctxtDY_PATH")。text =" COL4"
 session.findById(" wnd [2]/usr/ctxtDY_FILENAME")。text =" COL5"
 session.findById(" wnd [2]/usr/ctxtDY_FILENAME")。caretPosition = 14
 session.findById(" wnd [2]/tbar [0]/btn [11]")。按
 session.findById(" wnd [1]/tbar [0]/btn [0]")。按
 session.findById(" wnd [0]/tbar [0]/btn [3]")。按
 
capture.jpg (11.6 kB)

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


您好,当我尝试启动.vbs脚本时,出现错误

这是我的代码,请帮助

如果不是IsObject(application),则
    设置SapGuiAuto = GetObject(" SAPGUI")
    设置应用程序= SapGuiAuto.GetScriptingEngine
 万一
 如果不是IsObject(connection)然后
    设置连接= application.Children(0)
 万一
 如果不是IsObject(session)然后
    设置会话= connection.Children(0)
 万一
 如果IsObject(WScript)然后
    WScript.ConnectObject会话,"打开"
    WScript.ConnectObject应用程序,"打开"
 万一
 session.findById(" wnd [0]")。maximize






 昏暗的objExcel
 昏暗的objSheet,intRow,我
 设置objExcel = GetObject(," Excel.Application")
 设置objSheet = objExcel.ActiveWorkbook.ActiveSheet


 对于i = 2到objSheet.UsedRange.Rows.Count
 COL1 = Trim(CStr(objSheet.Cells(i,1).Value))'Column1
 COL2 = Trim(CStr(objSheet.Cells(i,2).Value))'Column2
 COL4 = Trim(CStr(objSheet.Cells(i,4).Value))'Column4
 COL5 = Trim(CStr(objSheet.Cells(i,5).Value))'Column5








 session.findById(" wnd [0]/usr/cntlIMAGE_CONTAINER/shellcont/shell/shellcont [0]/shell")。doubleClickNode" F00016"
 session.findById(" wnd [0]/usr/txtRF05L-BELNR")。text =" COL1"
 session.findById(" wnd [0]/usr/ctxtRF05L-BUKRS")。text =" COL2"
 session.findById(" wnd [0]/usr/txtRF05L-GJAHR")。text =""
 session.findById(" wnd [0]/usr/txtRF05L-GJAHR")。setFocus
 session.findById(" wnd [0]/usr/txtRF05L-GJAHR")。caretPosition = 0
 session.findById(" wnd [0]")。sendVKey 0
 session.findById(" wnd [0]/titl/shellcont/shell")。pressContextButton"%GOS_TOOLBOX"
 session.findById(" wnd [0]/titl/shellcont/shell")。selectContextMenuItem"%GOS_VIEW_ATTA"
 session.findById(" wnd [1]/usr/cntlCONTAINER_0100/shellcont/shell")。currentCellColumn =" BITM_DESCR"
 session.findById(" wnd [1]/usr/cntlCONTAINER_0100/shellcont/shell")。selectedRows =" 0"
 session.findById(" wnd [1]/usr/cntlCONTAINER_0100/shellcont/shell")。pressToolbarButton"%ATTA_EXPORT"
 session.findById(" wnd [2]/usr/ctxtDY_PATH")。text =" COL4"
 session.findById(" wnd [2]/usr/ctxtDY_FILENAME")。text =" COL5"
 session.findById(" wnd [2]/usr/ctxtDY_FILENAME")。caretPosition = 14
 session.findById(" wnd [2]/tbar [0]/btn [11]")。按
 session.findById(" wnd [1]/tbar [0]/btn [0]")。按
 session.findById(" wnd [0]/tbar [0]/btn [3]")。按
 
capture.jpg (11.6 kB)
付费偷看设置
发送
1条回答
宇峰Kouji
1楼 · 2020-09-14 19:08.采纳回答

你好Svyatoslav,

您正在使用命令

对于i = 2到objSheet.UsedRange.Rows.Count 

FOR是循环的开始,必须使用NEXT命令关闭循环

对于i = 2到objSheet.UsedRange.Rows.Count
   '您的命令在这里
 下一个

这就是消息的意思。

最好的问候
Stefan

一周热门 更多>