通过SAP Gui脚本将报告从SAP保存到excel文件

2020-08-15 16:10发布

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

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


所有亲爱的我都在使用VBA在SAP HANA中使用SAP GUI脚本。 我放散了一些报告并将其保存在excel中,但是VBA无法识别这些文件。 因此,我确实需要关闭excel文件,然后再次打开它们才能继续使用我的常规程序。
有什么方法可以丢失它吗?

如果Range(" A"&a)=" 4000",则session.findById(" wnd [0]/usr/ctxtSP $ 00002-LOW")。Text = Range(" A"&a)session.findById( " wnd [0]")。sendVKey 8 session.findById(" wnd [0]/usr/cntlCONTAINER/shellcont/shell")。pressToolbarContextButton"&MB_EXPORT" session.findById(" wnd [0]/usr/cntlCONTAINER/shellcont/shell")。selectContextMenuItem"&XXL" session.findById(" wnd [1]/usr/ctxtDY_PATH")。Text =" H:\ Artskonto \" session.findById(" wnd [1]/usr/ctxtDY_FILENAME")。Text =" FK4000.XLSX" session.findById(" wnd [1]/tbar [0]/btn [11]")。按Range(" C"&a).Value = session.findById(" wnd [0]/sbar")。文本会话。findById(" wnd [0]")。sendVKey 3

如果结束

预先感谢

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

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


所有亲爱的我都在使用VBA在SAP HANA中使用SAP GUI脚本。 我放散了一些报告并将其保存在excel中,但是VBA无法识别这些文件。 因此,我确实需要关闭excel文件,然后再次打开它们才能继续使用我的常规程序。
有什么方法可以丢失它吗?

如果Range(" A"&a)=" 4000",则session.findById(" wnd [0]/usr/ctxtSP $ 00002-LOW")。Text = Range(" A"&a)session.findById( " wnd [0]")。sendVKey 8 session.findById(" wnd [0]/usr/cntlCONTAINER/shellcont/shell")。pressToolbarContextButton"&MB_EXPORT" session.findById(" wnd [0]/usr/cntlCONTAINER/shellcont/shell")。selectContextMenuItem"&XXL" session.findById(" wnd [1]/usr/ctxtDY_PATH")。Text =" H:\ Artskonto \" session.findById(" wnd [1]/usr/ctxtDY_FILENAME")。Text =" FK4000.XLSX" session.findById(" wnd [1]/tbar [0]/btn [11]")。按Range(" C"&a).Value = session.findById(" wnd [0]/sbar")。文本会话。findById(" wnd [0]")。sendVKey 3

如果结束

预先感谢

付费偷看设置
发送
1条回答
四川大学会员
1楼-- · 2020-08-15 16:51

Magda,您好

您可以尝试以下解决方法来解决此问题:

如果Range(" A"&a)=" 4000"
 session.findById(" wnd [0]/usr/ctxtSP $ 00002-LOW")。Text = Range(" A"&a)
 session.findById(" wnd [0]")。sendVKey 8
 session.findById(" wnd [0]/usr/cntlCONTAINER/shellcont/shell")。pressToolbarContextButton"&MB_EXPORT"
 session.findById(" wnd [0]/usr/cntlCONTAINER/shellcont/shell")。selectContextMenuItem"&XXL"
 session.findById(" wnd [1]/usr/ctxtDY_PATH")。Text =" H:\ Artskonto \"
 session.findById(" wnd [1]/usr/ctxtDY_FILENAME")。Text =" FK4000.XLSX"
 session.findById(" wnd [1]/tbar [0]/btn [11]")。按
 '----新--------------------------------------------  --------------------
 Dim xlApp作为对象
 做
  Application.Wait Now + TimeSerial(0,0,1)
  关于错误继续
  设置xlApp = GetObject(" H:\ Artskonto \ FK4000.XLSX")。Application
  如果Err.Number = 0,则退出执行
  出错时转到0
 循环
 出错时转到0
 xlApp.Workbooks(1)。关闭False
 xlApp.Quit
 '----新--------------------------------------------  --------------------
 Range(" C"&a).Value = session.findById(" wnd [0]/sbar")。Text
 session.findById(" wnd [0]")。sendVKey 3
 
  万一
 

关于ScriptMan

一周热门 更多>