点击此处--->   群内免费提供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]"）。按
 万一


 结束子