提问
UI SAP GUI for Windows

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

2020-09-23 14:45发布

站内问答 / UI
1941 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条回答
spaceman01
2020-09-23 15:18

嗨，Pavan，

以上解决方案仅适用于VBS。 下面的解决方案也可以用于VBA。

此致

ScriptMan 

设置wshell = CreateObject（" WScript.Shell"）
 做
  bWindowFound = wshell.AppActivate（"打印"）
  'WScript.Sleep 1000
  wshell.Run" c：\ tmp \ sleep.vbs"＆" 1000"，0，True
 循环直到bWindowFound
 bWindowFound = wshell.AppActivate（"打印"）
 如果（bWindowFound）则
   wshell.AppActivate"打印"
   'WScript.Sleep 100
   wshell.Run" c：\ tmp \ sleep.vbs"＆" 100"，0，True
   wshell.SendKeys" {ENTER}"
 万一
 bWindowFound = wshell.AppActivate（"打印"）
 如果（bWindowFound）则
   wshell.AppActivate"打印"
   'WScript.Sleep 100
   wshell.Run" c：\ tmp \ sleep.vbs"＆" 100"，0，True
   wshell.SendKeys" {TAB} {ENTER}"
 万一
 bWindowFound = wshell.AppActivate（"打印"）
 如果（bWindowFound）则
   wshell.AppActivate"打印"
   'WScript.Sleep 100
   wshell.Run" c：\ tmp \ sleep.vbs"＆" 100"，0，True
   wshell.SendKeys" {TAB} {TAB} {ENTER}"
 万一
 bWindowFound = wshell.AppActivate（"打印"）
 虽然（bWindowFound）
   'WScript.Sleep 500
   wshell.Run" c：\ tmp \ sleep.vbs"＆" 500"，0，True
   bWindowFound = wshell.AppActivate（"打印"）
 温德
 关于错误继续
 session.findById（" wnd [1]"）。关闭
 出错时转到0

 。  。  。


 在c：\ tmp中的sleep.vbs：

 设置参数= wscript.arguments
 如果args.count> 0则
    Wscript.Sleep WScript.Arguments（0）
 其他
  Wscript.Sleep 1000
 万一

一周热门 更多>