提问
UI SAP GUI for Windows

在脚本结束时，将打开新的"打印"对话框。 我想自动化，请建议代码

2020-09-23 14:45发布

站内问答 / UI
1959 6 4

点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中） 以上对话框打开 我想通...

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

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


以上对话框打开

我想通过Excel VBA脚本自动化

请提示代码。

sap.jpg （35.8 kB）
6条回答
Violet凡
2020-09-23 15:34 .采纳回答

Pavan，

我确实使用这种解决方法已有多年了。

问候，

ScriptMan 

 set Wshell = CreateObject（" WScript.Shell"）
 做
  bWindowFound = Wshell.AppActivate（"打印"）
  WScript.Sleep 1000
 循环直到bWindowFound
 bWindowFound = Wshell.AppActivate（"打印"）
 如果（bWindowFound）然后
   Wshell.appActivate"打印"
   WScript.Sleep 100
   Wshell.sendkeys" {ENTER}"
 万一
 bWindowFound = Wshell.AppActivate（"打印"）
 如果（bWindowFound）然后
   Wshell.appActivate"打印"
   WScript.Sleep 100
   Wshell.sendkeys" {TAB} {ENTER}"
 万一
 bWindowFound = Wshell.AppActivate（"打印"）
 如果（bWindowFound）然后
   Wshell.appActivate"打印"
   WScript.Sleep 100
   Wshell.sendkeys" {TAB} {TAB} {ENTER}"
 万一
 错误返回下一个
 session.findById（" wnd [1]"）。close
 错误时转到0

一周热门 更多>