2020-08-24 14:50发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）我能够执行SAP GUI脚本以在... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
我能够执行SAP GUI脚本以在旧笔记本电脑中创建大量角色。 我无法在新的笔记本电脑L490中执行。
RZ11中的所有参数都可以。 我保持了与旧笔记本电脑相同的GUI设置。
旧笔记本电脑GUI版本和新笔记本电脑GUI版本：7400.1.3.1103相同。
问题：我能够将脚本保存在SAP默认路径中。 在SAP GUI中执行"脚本记录和播放"后，无法通过在弹出菜单中浏览来选择文件。 我尝试将文件保留在默认路径
AppData \ Roaming \ SAP \ SAP GUI \ Scripts，即使它没有执行。 如果单击执行按钮，脚本也不会运行。 请让我知道我还需要更新什么设置或参数。
预先感谢
。
相同。VBS在其他笔记本电脑上工作。 任务是将角色复制到另一个角色
--------从这里开始----
如果不是IsObject（应用程序），则设置SapGuiAuto = GetObject（" SAPGUI"）设置应用程序= SapGuiAuto.GetScriptingEngine 如果，如果不是IsObject（连接），则结束，设置 连接= application.Children（0）如果不是IsObject（session），则结束 设置会话= connection.Children（0）如果，如果是IsObject（WScript），则结束。 br> WScript.ConnectObject会话，在"上" WScript.ConnectObject应用程序，在"上" 如果If Dim cnnExcel，rstExcel Dim strExcelFile
strExcelFile =" C：\ Users \ userid \ Documents \ Govind \ scripts \ Copy派生角色\ Copy派生角色.xls"
设置cnnExcel = CreateObject（" ADODB.Connection"） cnnExcel.Open" Provider = Microsoft.Jet.OLEDB.4.0;" ＆_ "数据源="＆strExcelFile＆";" ＆_ " Extended Properties ="" Excel 8.0; HDR = NO;""" '使用Excel数据加载ADO记录集设置rstExcel = CreateObject（" ADODB.Recordset"） rstExcel。 打开"从[Sheet1 $ A1：H10000]选择*"，cnnExcel，adOpenStatic
session.findById（" wnd [0]"）。maximize session.findById（" wnd [0]/tbar [0]/okcd"）。text ="/img/npfcg"
rstExcel.movenext
执行直到rstExcel.EOF或UCASE（rstExcel.Fields（0）.Value）=" LAST"
如果rstExcel.EOF然后退出Do 如果If session.findById（" wnd [0]"）。maximize session.findById（" wnd [0]/tbar [0]/okcd"）。text ="/img/npfcg" session.findById（" wnd [0]"）。sendVKey 0 session.findById（" wnd [0]/usr/ctxtAGR_NAME_NEU"） .text = rstExcel.Fields（0）.Value session.findById（" wnd [0]/usr/ctxtAGR_NAME_NEU"）。caretPosition = 27 session.findById（" wnd [0]"）。sendVKey 0 session.findById（" wnd [0]/tbar [1]/btn [23]"）。press session.findById（" wnd [1]/usr/ctxtP_DEST"）。text = rstExcel.Fields （1）.Value session.findById（" wnd [1]/usr/ctxtP_DEST"）。setFocus findById（" wnd [1]/usr/ctxtP_DEST"）。caretPosition = 15 session.findById（" wnd [1]"）。sendVKey 0 session.findById（" wnd [0]/usr/btn％#AUTOTEXT001"）。press session.findById（" wnd [0]/usr/txtS_AGR_TEXTS-TEXT"）。text = rstExcel.Fields（2）.Value session.findById（" wnd [0]/usr/txtS_AGR_TEXTS-TEXT"）。caretPosition = 4 session.findById（" wnd [0]"）。sendVKey 0 findById（" wnd [0]/usr/tabsTABSTRIP1/tabpTAB5"）。select ses sion.findById（" wnd [0]/usr/tabsTABSTRIP1/tabpTAB5/ssubSUB1：SAPLPRGN_TREE：0350/btnPROFILSUGGEST"）。press session.findById（" wnd [0]/usr/tabsTABSTRIP1/tabpTAB5/ssub_REE1：SAPLPR 0350/btnPROFIL1"）。press session.findById（" wnd [1]/usr/btnBUTTON_1"）。press session.findById（" wnd [0]/tbar [1]/btn [17]" ）.press session.findById（" wnd [0]/tbar [0]/btn [3]"）。press rstExcel.movenext
LOOP
rstExcel.Close 设置rstExcel = Nothing cnnExcel.Close 设置cnnExcel = Nothing
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 槿木_熙 的问题《通过选择我的文件无法执行SAP GUI脚本》','https://www.easysap.com/answer/30299/85479.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
相同。VBS在其他笔记本电脑上工作。 任务是将角色复制到另一个角色
--------从这里开始----
如果不是IsObject（应用程序），则
结束设置SapGuiAuto = GetObject（" SAPGUI"）
设置应用程序= SapGuiAuto.GetScriptingEngine
如果，如果不是IsObject（连接），则结束，
设置 连接= application.Children（0）
如果不是IsObject（session），则结束
设置会话= connection.Children（0）
如果，如果是IsObject（WScript），则结束。 br> WScript.ConnectObject会话，在"上"
WScript.ConnectObject应用程序，在"上"
如果If
Dim cnnExcel，rstExcel
Dim strExcelFile
strExcelFile =" C：\ Users \ userid \ Documents \ Govind \ scripts \ Copy派生角色\ Copy派生角色.xls"
设置cnnExcel = CreateObject（" ADODB.Connection"）
cnnExcel.Open" Provider = Microsoft.Jet.OLEDB.4.0;" ＆_
"数据源="＆strExcelFile＆";" ＆_
" Extended Properties ="" Excel 8.0; HDR = NO;"""
'使用Excel数据加载ADO记录集
设置rstExcel = CreateObject（" ADODB.Recordset"）
rstExcel。 打开"从[Sheet1 $ A1：H10000]选择*"，cnnExcel，adOpenStatic
session.findById（" wnd [0]"）。maximize
session.findById（" wnd [0]/tbar [0]/okcd"）。text ="/img/npfcg"
rstExcel.movenext
执行直到rstExcel.EOF或UCASE（rstExcel.Fields（0）.Value）=" LAST"
如果rstExcel.EOF然后
退出Do
如果If
session.findById（" wnd [0]"）。maximize
session.findById（" wnd [0]/tbar [0]/okcd"）。text ="/img/npfcg"
session.findById（" wnd [0]"）。sendVKey 0
session.findById（" wnd [0]/usr/ctxtAGR_NAME_NEU"） .text = rstExcel.Fields（0）.Value
session.findById（" wnd [0]/usr/ctxtAGR_NAME_NEU"）。caretPosition = 27
session.findById（" wnd [0]"）。sendVKey 0
session.findById（" wnd [0]/tbar [1]/btn [23]"）。press
session.findById（" wnd [1]/usr/ctxtP_DEST"）。text = rstExcel.Fields （1）.Value
session.findById（" wnd [1]"）。sendVKey 0
session.findById（" wnd [0]/usr/btn％#AUTOTEXT001"）。press
session.findById（" wnd [0]/usr/txtS_AGR_TEXTS-TEXT"）。text = rstExcel.Fields（2）.Value
session.findById（" wnd [0]/usr/txtS_AGR_TEXTS-TEXT"）。caretPosition = 4
session.findById（" wnd [0]"）。sendVKey 0
ses sion.findById（" wnd [0]/usr/tabsTABSTRIP1/tabpTAB5/ssubSUB1：SAPLPRGN_TREE：0350/btnPROFILSUGGEST"）。press
session.findById（" wnd [0]/usr/tabsTABSTRIP1/tabpTAB5/ssub_REE1：SAPLPR 0350/btnPROFIL1"）。press
session.findById（" wnd [1]/usr/btnBUTTON_1"）。press
session.findById（" wnd [0]/tbar [1]/btn [17]" ）.press
session.findById（" wnd [0]/tbar [0]/btn [3]"）。press
rstExcel.movenext
LOOP
rstExcel.Close
-----此处结束----设置rstExcel = Nothing
cnnExcel.Close
设置cnnExcel = Nothing
一周热门 更多>