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

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

你好

我目前正在使用代码从Excel启动SAP事务，并用变量填充必填字段。

此代码运行良好，但我想通过自动执行"单击按钮"（F8）动作来进一步说明。 （请参见下面的图片和现有代码）。

任何人都可以帮忙，告诉我是否以及如何让excel单击所需的按钮（或按键盘上的F8快捷键）

非常感谢

VBA代码：

子CreateFileZPPARTSap（）
 昏暗交易作为字符串
 昏暗的Champs1作为字符串
 昏暗的Champs2作为字符串
 昏暗的Champs3作为字符串
 昏暗的Champs4作为字符串
 Dim Num_art作为字符串
 昏暗的快捷方式作为字符串
 Dim Utilisateur作为字符串


 Utilisateur = Application.UserName
 交易=" ZMM_QD_REPORT"
 Champs1 =" S_BUKRS-LOW = 0101;"  'ajouter;
 Champs2 =" S_WERKS-LOW = tst1"＆_
           "; S_WERKS-HIGH = tst2"
 Champs3 ="; S_DATE-LOW ="＆Format（Sheets（" Test"）。Range（" a1"），" dd.mm.yyyy"）＆_
             "; S_DATE-HIGH ="＆Format（Sheets（" Test"）。Range（" a2"），" dd.mm.yyyy"）
 Num_art = ActiveCell


     FileNumber = FreeFile'inutilisé的编号
     快捷方式=" C：\ Users \ myID \ OneDrive-myOrg \ z-myOrg设置\桌面\ Perso \ sap分析Qualité.sap"
    
 '//Vérifieque le fichier existe pour pouvoir lancer le reste de la macro
 Txt = Dir（快捷方式）
 如果Txt =""然后
    'MsgBox" Le fichier n'existe pas"，vbInformation，"注意："
 其他
     'MsgBox" Le fichier"＆Txt＆" existe"
     'supprime le fichierexporté==>快捷方式
     设置fs = CreateObject（" Scripting.FileSystemObject"）
     设置f = fs.GetFile（Shortcut）'（o快捷路径完成+标称值）
     f。删除
 万一
    
     打开快捷方式以附加为#FileNumber
     打印#FileNumber，" [系统]"
     打印#FileNumber，"名称=SAP"
     打印#FileNumber，"说明= sap（sapnbr）"
     打印#FileNumber，"客户端= 000"
     打印#FileNumber，" [用户]"
     打印#FileNumber，"名称= id"'A CHANGER
     打印#FileNumber，" Language = FR"
     打印#FileNumber，" [功能]"
     打印#FileNumber，" COMMAND ="和＆Transaction＆Champs1＆Champs2＆Num_art＆Champs3
     打印#FileNumber，" [配置]"
     打印#FileNumber，" WorkDir = C：\ Users \"和Utilisateur和" \ Documents \ SAP"
     打印#FileNumber，" [选项]"
     打印#FileNumber，"重用= 1"
     关闭#FileNumber
        
     Shell（" C：\ Program Files（x86）\ SAP \ FrontEnd \ SapGui \ sapshcut.exe和快捷方式）

 结束子