从Excel(vba)运行和利用SAP

2020-09-14 07:25发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)你好 我目前正在使用代码...

         点击此处--->   EasySAP.com群内免费提供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和快捷方式)

 结束子
 

(86.1 kB)