点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨,我有问题。 我...
点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨,我有问题。 我...
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
嗨,我有问题。
我编写了一个脚本,用于从BA23下载文档,但是某些对象没有活动的附件字段。 因此,脚本停止了。
是否可以在脚本内创建算法,以便它忽略此错误并继续读取Excel?
下面是我的代码
感谢您的帮助。
如果不是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,objWorkbook,objSheet,i 设置objExcel = CreateObject(" Excel.Application") 设置objWorkbook = objExcel.Workbooks.Open(" C:\ Users \ Z003S0BF \ Desktop \ My_scripts \ VF03_mass_download \ Book3.xlsx") 设置objSheet = objWorkbook.Sheets(" Sheet1") 对于i = 2到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 session.findById(" wnd [0]")。maximize session.findById(" wnd [0]/tbar [0]/okcd")。text =" VA23" session.findById(" wnd [0]")。sendVKey 0 session.findById(" wnd [0]/usr/ctxtVBAK-VBELN")。text = COL1 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")。selectedRows =" 0" session.findById(" wnd [1]/usr/cntlCONTAINER_0100/shellcont/shell")。pressToolbarButton"%ATTA_EXPORT" session.findById(" wnd [1]/usr/ctxtDY_PATH")。text = COL3 session.findById(" wnd [1]/usr/ctxtDY_FILENAME")。text = COL2 session.findById(" wnd [1]/usr/ctxtDY_FILENAME")。caretPosition = 5 session.findById(" wnd [1]/tbar [0]/btn [11]")。按 session.findById(" wnd [1]/tbar [0]/btn [0]")。按 session.findById(" wnd [0]/tbar [0]/btn [3]")。按 session.findById(" wnd [0]/tbar [0]/btn [3]")。按 下一个 msgbox"处理完成"saperror.jpg (14.5 kB)
你好Svyatoslav,
感谢您的回答和密码。
对于您的问题:UsedRange.Rows.Count是否有可能提供较高的行号(已填充数据)? 请尝试一下,并用作替代ActiveSheet.Range(" A65536")。End(xlUp).Row。
让我们知道您的结果。
干杯
Stefan
一周热门 更多>