使用Excel中的数据到SAP

2020-08-30 14:48发布

         点击此处--->   EasySAP.com群内免费提供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 findById(" wnd [0]/usr/ctxtSD_BUKRS-LOW")。caretPosition = 4
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

         点击此处--->   EasySAP.com群内免费提供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 findById(" wnd [0]/usr/ctxtSD_BUKRS-LOW")。caretPosition = 4
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

付费偷看设置
发送
1条回答
Doze时光
1楼-- · 2020-08-30 15:37

您好,Aleksandra,

您可以尝试以下方法:

Session.findById(" wnd [0]/usr/ctxtSD_BUKRS-LOW")。Text = cells(3,3 ).value

关于ScriptMan

一周热门 更多>