提问
UI SAP GUI for Windows vba excel

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

2020-08-15 16:10发布

站内问答 / UI
2347 1 5

         点击此处--->   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

一周热门 更多>

点击此处---> EasySAP.com 一起学习S4 HANA ...