SAP脚本中的小姐错误

2020-09-13 14:24发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨,我有问题。 我...

         点击此处--->   EasySAP.com群内免费提供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)
4条回答
灬番茄
2020-09-13 15:07

你好Svyatoslav,

感谢您的回答和密码。

对于您的问题:UsedRange.Rows.Count是否有可能提供较高的行号(已填充数据)? 请尝试一下,并用作替代ActiveSheet.Range(" A65536")。End(xlUp).Row。

让我们知道您的结果。

干杯
Stefan

一周热门 更多>