点击此处---> 群内免费提供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)
您违反了论坛规则:
虚名: D4 L6
不相关的标记:用于Excel的EPM加载项
https://www.sap.com/community/about/ rules-of-engagement.html
一周热门 更多>