点击此处---> 群内免费提供SAP练习系统(在群公告中)
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
您好,专家
我是第一次从事SAP脚本编写工作,我不知道如何使用Excel中的某些信息。 我尝试使用旧线程中提供的指令,很遗憾,我无法在代码中使用它。
我需要在SAP中运行简单的事务(即FBL1N或FBL3N),但是公司代码是在单元格(3, 3)..在下面的示例中为1042,但我确实需要将其设置为变量。
这是我的代码
私人子CommandButton1_Click()
Dim SapGuiAuto
Dim SetApp
Dim连接
Dim会话
Set SapGuiAuto = GetObject(" SAPGUI")
Set SetApp = SapGuiAuto.GetScriptingEngine
Set Connection = SetApp.Children (0)
设置会话= Connection.Children(0)
Session.findById(" wnd [0]")。Maximize
'然后,您的脚本将gui控制在此://
Session.findById(" wnd [0]/tbar [0]/okcd")。Text ="/img/nFBL3n"
Session.findById(" wnd [0]")。sendVKey 0
Session。 findById(" wnd [0]/tbar [1]/btn [17]")。press
Session.findById(" wnd [1]/tbar [0]/btn [8]")。press
Session.findById(" wnd [1]/usr/cntlALV_CONTAINER_1/shellcont/shell")。currentCellRow = 9
Session.findById(" wnd [1]/usr/cntlALV_CONTAINER_1/shellcont/shell")。selectedRows =" 9 "
Session.findById(" wnd [1]/usr/cntlALV_CONTAINER_1/shellcont/shell")。doubleClickCurrentCell
Session.findById(" wnd [0]/usr/ctxtSD_BUKRS-LOW")。Text = 1042 < br> Session.findById(" wnd [0]/usr/ctxtSD_BUKRS-LOW")。SetFocus
Session。 findById(" wnd [0]")。sendVKey 8
Session.findById(" wnd [0]")。sendVKey 9
Session.findById(" wnd [1]/tbar [0]/btn [0 ]")。按
Session.findById(" wnd [1]/usr/ctxtDY_FILENAME")。Text =" Ext.txt"
Session.findById(" wnd [1]/usr/ctxtDY_PATH")。 SetFocus
Session.findById(" wnd [1]/usr/ctxtDY_PATH")。caretPosition = 0
Session.fin dById(" wnd [1]")。sendVKey 4
Session.findById(" wnd [2]/usr/ctxtDY_PATH")。Text =" C:\ Users ..."
Session.findById(" wnd [2]/usr/ctxtDY_PATH")。SetFocus
Session.findById(" wnd [2]/usr/ctxtDY_PATH")。caretPosition = 34
Session.findById(" wnd [2]/tbar [0 ]/btn [0]")。press
Session.findById(" wnd [1]/tbar [0]/btn [11]")。press
Session.findById(" wnd [0]/tbar [0]/okcd")。Text ="/img/n"
Session.findById(" wnd [0]")。sendVKey 0
结束子
非常感谢您的帮助
Thx
您好,Aleksandra,
您可以尝试以下方法:
Session.findById(" wnd [0]/usr/ctxtSD_BUKRS-LOW")。Text = cells(3,3 ).value
关于ScriptMan
一周热门 更多>