提问
MM Purchasing

双击单元格运行VBS宏

2020-09-13 23:24发布

站内问答 / MM
2140 3 5

         点击此处--->   EasySAP.com群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）


你好

我有一个名为" PO订单"的工作表。

该工作表的A列（A7：A1000）中有值（采购订单）

我想拥有的是当我双击一个单元格时

复制点击的单元格

转到事务Me22N并填写PO订单。

因此用户可以更改Po订单的交货日期

Thx 

私人子Worksheet_SelectionChange（ByVal目标为Excel.Range）


 如果不相交（目标，范围（" A：A"））什么都没有，
 'MsgBox"不错！"  '将您的宏/代码放在这里
  选择复制
        设置SapGuiAuto = GetObject（" SAPGUI"）
 
    设置Applicationa = SapGuiAuto.GetScriptingEngine


 如果不是IsObject（Connection）然后






    设置连接= Applicationa.Children（0）
 万一
 如果不是IsObject（session）然后
    设置会话= Connection.Children（0）
 万一
 如果IsObject（WScript）然后
    WScript.ConnectObject会话，"打开"
    WScript.ConnectObject应用程序，"打开"
 万一


 session.findById（" wnd [0]"）。maximize
 session.findById（" wnd [0]/tbar [0]/okcd"）。Text ="/img/nme22n"
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/tbar [1]/btn [17]"）。按


 session.findById（" wnd [1]/usr/subSUB0：SAPLMEGUI：0003/ctxtMEPO_SELECT-EBELN"）。caretPosition = 10
 session.findById（" wnd [1]/tbar [0]/btn [0]"）。按
 万一


 结束子

         点击此处--->   EasySAP.com群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）


你好

我有一个名为" PO订单"的工作表。

该工作表的A列（A7：A1000）中有值（采购订单）

我想拥有的是当我双击一个单元格时

复制点击的单元格

转到事务Me22N并填写PO订单。

因此用户可以更改Po订单的交货日期

Thx 

私人子Worksheet_SelectionChange（ByVal目标为Excel.Range）


 如果不相交（目标，范围（" A：A"））什么都没有，
 'MsgBox"不错！"  '将您的宏/代码放在这里
  选择复制
        设置SapGuiAuto = GetObject（" SAPGUI"）
 
    设置Applicationa = SapGuiAuto.GetScriptingEngine


 如果不是IsObject（Connection）然后






    设置连接= Applicationa.Children（0）
 万一
 如果不是IsObject（session）然后
    设置会话= Connection.Children（0）
 万一
 如果IsObject（WScript）然后
    WScript.ConnectObject会话，"打开"
    WScript.ConnectObject应用程序，"打开"
 万一


 session.findById（" wnd [0]"）。maximize
 session.findById（" wnd [0]/tbar [0]/okcd"）。Text ="/img/nme22n"
 session.findById（" wnd [0]"）。sendVKey 0
 session.findById（" wnd [0]/tbar [1]/btn [17]"）。按


 session.findById（" wnd [1]/usr/subSUB0：SAPLMEGUI：0003/ctxtMEPO_SELECT-EBELN"）。caretPosition = 10
 session.findById（" wnd [1]/tbar [0]/btn [0]"）。按
 万一


 结束子
付费偷看设置
发送
3条回答
clever101
1楼-- · 2020-09-13 23:52

你好

通过将l_code设置为ME23N来调用功能模块ME_DISPLAY_PURCHASE_DOCUMENT。


此致

戴安娜

Aaron 3364
2楼-- · 2020-09-13 23:52

嗨耶内罗伊，

您可以尝试以下操作：

私有子工作表_BeforeDoubleClick（ByVal目标为Excel.Range，取消为布尔值）

 如果不相交（目标，范围（" A：A"））什么都没有，
 'MsgBox"不错！"  '将您的宏/代码放在这里
  选择复制
  ...
  session.findById（" wnd [0]/tbar [1]/btn [17]"）。按
  session.findById（" wnd [1]/usr/subSUB0：SAPLMEGUI：0003/ctxtMEPO_SELECT-EBELN"）。text = Selection.Text
  'session.findById（" wnd [1]/usr/subSUB0：SAPLMEGUI：0003/ctxtMEPO_SELECT-EBELN"）。caretPosition = 10
  session.findById（" wnd [1]/tbar [0]/btn [0]"）。按
 万一

 结束Sub

此致

ScriptMan

骆驼绵羊
3楼-- · 2020-09-13 23:55

嗨，戴安娜和脚本 男人

Thx，
我已经解决了

一周热门 更多>

点击此处---> EasySAP.com 一起学习S4 HANA ...