点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)你好社区, ...
点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)你好社区, ...
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
你好社区,
我是新来的,我的英语不是最好的...:)
使用以下代码,SAP将从Excel(A和B列)的各个字段中获取数据作为循环。 我希望在C列中的每个步骤之后都有状态栏,但我不知道它是如何工作的:)
有人可以帮助我吗?
最感谢
-----------
如果不是IsObject(application),则
设置SapGuiAuto = GetObject(" SAPGUI")
设置应用程序= SapGuiAuto.GetScriptingEngine
如果,如果不是IsObject(connection),则
连接= application.Children(0)
如果不是IsObject(session),则结束
设置会话= connection.Children(0)
如果,如果是IsObject(WScript),则结束。 br> WScript.ConnectObject会话,在"上"
WScript.ConnectObject应用程序,在"上"
结束If
session.findById(" wnd [0]")。maximize
Dim objExcel
Dim objSheet,intRow,i
设置objExcel = GetObject(," Excel.Application")
设置objSheet = objExcel.Workbooks(" ScriptOpOrders.xlsm")。Sheets(" OpOrdersRun ")
对于i = 2到objSheet.UsedRange.Rows.Count
COL1 = Trim(CStr(objSheet.Cells(i,1).Value))
COL2 = Trim(CStr(objSheet.Cells (i,2).Value))
session.findById(" wnd [0]/tbar [0]/okcd")。text =" VA05"
session.findById(" wnd [0]")。sendVKey 0
session.findById (" wnd [0]/tbar [1]/btn [33]")。press
session.findById(" wnd [1]/usr/ctxtVBCOM-VKORG")。text =" DE01"
session .findById(" wnd [1]/usr/ctxtVBCOM-VTWEG")。text =" RP"
session.findById(" wnd [1]/usr/ctxtVBCOM-SPART")。text =" US"
session.findById(" wnd [1]/usr/ctxtVBCOM-SPART")。setFocus
session.findById (" wnd [1]/tbar [0]/btn [0]")。press
session.findById(" wnd [0]/usr/radVBCOM-VBOFF")。select
session.findById(" wnd [0]/usr/ctxtVBCOM-AUDAT")。text =""
session.findById(" wnd [0]/usr/ctxtVBCOM-AUDAT_BIS")。text = COL1
session.findById(" wnd [0]/usr/radVBCOM-VBOFF")。setFocus
session.findById(" wnd [0 ]/usr/cntlGRID1/shellcont/shell/shellcont [1]/shell")。contextMenu
session.findById(" wnd [0]/usr/cntlGRID1/shellcont/shell/shellcont [1]/shell")。 selectContextMenuItem" &XXL"
session.findById(" wnd [1]/tbar [0]/btn [0]")。press
session.findById(" wnd [1]/usr/ctxtDY_PATH")。text =" C:\ Users \ ... \ Desktop \ Analytics \ Repair \ OpOrders"
session.findById(" wnd [1]/usr/ctxtDY_FILENAME")。text = COL2
session.findById(" wnd [1 ]/usr/ctxtDY_FILENAME")。caretPosition = 9
session.findById(" wnd [1]/tbar [0]/btn [11]")。press
session.findById(" wnd [0]/tbar [0]/btn [15]")。按
下一个
WScript.Quit
嗨斯特凡,
我今天看到了您的答案,因为直到本周才离开办公室。 非常感谢你。 明天我会试试,让你知道:)
最好的问候
Max
一周热门 更多>