VB脚本错误消息"无法写入只读属性

2020-09-21 04:49发布

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

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


嗨,您将看到以下程序创建了一个简单的BA,但是当包含额外的代码行以容纳excel电子表格以进行批量BA创建时,实际上将电子表格锁定为只读状态,这阻止了脚本运行。 请帮忙。 谢谢

如果不是IsObject(application),则设置SapGuiAuto = GetObject(" SAPGUI")如果不是IsObject(connection),则设置应用程序= SapGuiAuto.GetScriptingEngine结束。如果不是IsObject(session),则设置连接= application.Children(0)结束 )然后设置session = connection.Children(0)如果If IsObject(WScript),则结束;然后WScript.ConnectObject会话,"在" WScript.ConnectObject应用程序上," on";如果,session.findById(" wnd [0]")。maximize 昏暗的objExcel,objWorkbook,objSheet,我设置objExcel = CreateObject(" Excel.Application")设置objWorkbook = objExcel.Workbooks.Open(" C:\ Users \ TSK \ Documents \ BA06.xlsx")设置objSheet = objWorkbook.Sheets( " Sheet1")对于i = 2到objSheet.UsedRange.Rows.Count业务= Trim(CStr(objSheet.Cells(i,1).Value))'Column1名称= Trim(CStr(objSheet.Cells(i,2) .Value))'Column2 session.findById(" wnd [0]/tbar [0]/okcd")。text =" ox03" session.findById(" wnd [0]")。sendVKey 0 session.findById(" wnd [0]/tbar [1]/btn [5]")。press session.findById(" wnd [0]/usr/tblSAPL0ORGCORETCTRL_V_TGSB/txtV_T GSB-GSBER [0,0]")。text =业务session.findById(" wnd [0]/usr/tblSAPL0ORGCORETCTRL_V_TGSB/txtV_TGSB-GTEXT [1,0]")。text =名称session.findById(" wnd [0 ]/usr/tblSAPL0ORGCORETCTRL_V_TGSB/txtV_TGSB-GTEXT [1,0]")。setFocus session.findById(" wnd [0]/usr/tblSAPL0ORGCORETCTRL_V_TGSB/txtV_TGSB-GTEXT [1,0]")。caretPosition = 19 session.findById " wnd [0]/tbar [0]/btn [11]")。按下一个msgbox" BA已创建"

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

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


嗨,您将看到以下程序创建了一个简单的BA,但是当包含额外的代码行以容纳excel电子表格以进行批量BA创建时,实际上将电子表格锁定为只读状态,这阻止了脚本运行。 请帮忙。 谢谢

如果不是IsObject(application),则设置SapGuiAuto = GetObject(" SAPGUI")如果不是IsObject(connection),则设置应用程序= SapGuiAuto.GetScriptingEngine结束。如果不是IsObject(session),则设置连接= application.Children(0)结束 )然后设置session = connection.Children(0)如果If IsObject(WScript),则结束;然后WScript.ConnectObject会话,"在" WScript.ConnectObject应用程序上," on";如果,session.findById(" wnd [0]")。maximize 昏暗的objExcel,objWorkbook,objSheet,我设置objExcel = CreateObject(" Excel.Application")设置objWorkbook = objExcel.Workbooks.Open(" C:\ Users \ TSK \ Documents \ BA06.xlsx")设置objSheet = objWorkbook.Sheets( " Sheet1")对于i = 2到objSheet.UsedRange.Rows.Count业务= Trim(CStr(objSheet.Cells(i,1).Value))'Column1名称= Trim(CStr(objSheet.Cells(i,2) .Value))'Column2 session.findById(" wnd [0]/tbar [0]/okcd")。text =" ox03" session.findById(" wnd [0]")。sendVKey 0 session.findById(" wnd [0]/tbar [1]/btn [5]")。press session.findById(" wnd [0]/usr/tblSAPL0ORGCORETCTRL_V_TGSB/txtV_T GSB-GSBER [0,0]")。text =业务session.findById(" wnd [0]/usr/tblSAPL0ORGCORETCTRL_V_TGSB/txtV_TGSB-GTEXT [1,0]")。text =名称session.findById(" wnd [0 ]/usr/tblSAPL0ORGCORETCTRL_V_TGSB/txtV_TGSB-GTEXT [1,0]")。setFocus session.findById(" wnd [0]/usr/tblSAPL0ORGCORETCTRL_V_TGSB/txtV_TGSB-GTEXT [1,0]")。caretPosition = 19 session.findById " wnd [0]/tbar [0]/btn [11]")。按下一个msgbox" BA已创建"

付费偷看设置
发送
1条回答
歪着头看世界
1楼-- · 2020-09-21 05:06

一些可以帮助我锁定电子表格的代码。 谢谢

一周热门 更多>