双击单元格运行VBS宏

2020-09-13 23:24发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)你好 我有一个名为 PO...

         点击此处--->   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]")。按
 万一


 结束子