点击此处--->   群内免费提供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