2020-09-23 14:45发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中） 以上对话框打开 我想通... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
以上对话框打开
我想通过Excel VBA脚本自动化
请提示代码。
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
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 樱桃小丸子0093 的问题《在脚本结束时，将打开新的){kind=link}
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一周热门 更多>