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

2020-09-23 14:45发布

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

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

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


以上对话框打开

我想通过Excel VBA脚本自动化

请提示代码。

sap.jpg (35.8 kB)
6条回答
当学会了学习
2020-09-23 15:35
 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 
,我想更改copie的数量?

ScriptMan,您能帮我吗?

一周热门 更多>