?

写在前面

　　我们使用Python驱动SAP时，经常会需要导出一些SAP报表数据至本地Excel文件。这个看似简单的问题背后，其实暗藏玄机，今天小爬就带各位同学好好捋捋。

以事务代码FB03（凭证清单）为例，进入清单界面后，SAP会为我们加载默认布局，布局决定了我们报表中显示哪些字段，以什么样式来显示，最后我们导出的表格样式也大抵如此。

问题一：

　　倘若默认布局不是我们当前想要的（每个用户的SAP界面针对特定事务代码，默认布局不尽相同，如果我们导出数据前不统一布局，后续导出的excel文件模板就没法统一，给后续的数据批量处理带来诸多不便），我们又不想修改默认布局，该怎么做呢？

回答一：

　　我们可以先预设一个统一的全局布局，每次数据加载完后，我们的自动化脚本先设置布局至我们想要的，然后再执行数据的导出；

?

?

问题二：

　　为啥SAP的布局在不同账号下呈现两种界面样式，该如何处理（示例界面：FAGLB03）？

?

?

回答二：

　　我们可以点击【选择布局】后，判断弹窗的窗口标题，因为两种布局界面下的标题不一样。我们可以判断当前布局所属的样式，再决定是否自动点击SAP菜单栏的【设置】-【切换清单】。将布局样式一调整为样式二之后，再来进行后续的自动化操作。

?

问题三：

　　为啥布局要先自动切换到【界面样式二】模式，该模式方便在哪儿？

回答三：

　　我们通过之前系列【python驱动SAP完成自动化】文章中提到的Tracker工具，利用其Analyser功能，得到两者的布局界面（ID：/app/con[0]/ses[2]/wnd[1]）的分布：

?

?

由于布局样式二的界面主体是GridView，它可以通过GetCellValue方法快速得到某个Cell（类似于单元格）的值，从而方便我们快速基于布局名称，定位并切换到想要的布局；与之对应，布局样式一的主体是GuiLabel对象，遍历每行布局相对没有那么方便。

?

数据导出的注意事项

我们可以通过如下方式进行导出：

?

?

其中方法一与方法三并无本质差别，最终都是可以脚本录制或者快捷键（Ctrl+Shift+F7）得到，点击导出按钮后，界面【选择电子表格】如下：

?

但是假如用户曾经勾选过上图中的【始终使用选定的格式】，那么则不会弹出上图所示窗口，直接进入如下界面：

?

注意一：

如果用户执行操作前没有点击【脚本录制】，则会弹出如下windows【另存为】界面：

?

由于该界面是windows系统窗体，无法通过脚本录制得到自动化脚本代码，所以我们务必要提前进行脚本录制动作，才能确保文件保存的界面可通过录制脚本得到代码。

注意二：

如果我们一开始选择的方法二 进行数据导出，则无论用户是否勾选【始终使用选定的格式】选项，SAP均会弹出【选择电子表格】界面。

因此，为了避免操作界面不一致带来的代码兼容问题，小爬建议大家使用方法二来执行数据导出。

最后的导出界面，用户可以设置保存的路径和文件名，最后基于各自的情况点击【生成】或者【替代】按钮（【替代】按钮，意味着如果设定目录中如果提前有同名文件，则会被新文件覆盖）。

点击完导出后，SAP会默认调用Excel进程，生成一个Excel文件，持续往该文件中传输值，待传输完毕后，SAP左下角会有消息显示：已传输***个字节。且该Excel文件会被excel自动打开。

那么问题来了，如果我们要通过脚本批量下载多个报表数据，则SAP会自动创建并打开N个excel文件，此举很有可能导致系统内存紧张甚至excel文件崩溃。因此我们有必要及时自动关闭Excel文件。这该如何处理呢？

显然，我们必须借助于windows系统api来实现，python下就必须依托于pywin32库。同时我们还要借助SPY++提前捕获窗口信息。

?

?

可以看到当系统是否隐藏了文件扩展名，最后窗口标题是有差别的，而FindWindow函数本身不支持基于窗口标题模糊查找，我们代码里不得不特殊化处理。

基于前文提到的方法二导出的，具体的示例代码如下（FB03为例）：

 1 import sys, win32com.client,os,win32gui,win32con,time
 2 def Main():
 3   try:
 4     SapGuiAuto = win32com.client.GetObject("SAPGUI")
 5     application = SapGuiAuto.GetScriptingEngine
 6     connection = application.Children(0)
 7     if connection.DisabledByServer == True:
 8       print("Scripting is disabled by server")
 9       application = None
10       SapGuiAuto = None
11       return
12 
13     session = connection.Children(0)
14     if session.Busy == True:
15       print("Session is busy")
16       session = None
17       connection = None
18       application = None
19       SapGuiAuto = None
20       return
21 
22     if session.Info.IsLowSpeedConnection == True:
23       print("Connection is low speed")
24       session = None
25       connection = None
26       application = None
27       SapGuiAuto = None
28       return
29 
30     session.findById("wnd[0]").maximize()
31     session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").contextMenu()
32     session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectContextMenuItem("&XXL")
33     session.findById("wnd[1]/tbar[0]/btn[0]").press()
34     session.findById("wnd[1]/usr/ctxtDY_PATH").text = os.getcwd() #保存路径
35     session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "reportList.xlsx" #保存文件名
36     session.findById("wnd[1]/tbar[0]/btn[11]").press() #点击【替代】，覆盖可能的原文件
37     sapInfo=session.findById("wnd[0]/sbar").text #由于SAP脚本自身的特性，当程序读到左下角消息时，意味着数据已经传输完成！
38 
39     '''找到打开的excel文件，并自动关闭它'''
40     excelHwnd=0
41     while ExcelHwnd==0:
42         time.sleep(0.2)
43         excelHwnd=max(win32gui.FindWindow("XLMAIN","reportList.XLSX - Excel"),win32gui.FindWindow("XLMAIN","reportList - Excel"))
44 
45     '''以防SAP没有完全释放Excel进程，建议等待excel窗口可见后，再关闭它'''
46     isVisible=False
47     while isVisible==False:
48         time.sleep(0.2)
49         isVisible=win32gui.IsWindowVisible(excelHwnd)
50 
51     '''关闭excel进程'''
52     win32gui.SendMessage(excelHwnd,win32con.WM_CLOSE,None,None)
53 
54 
55   except Exception as e:
56     print(e)
57     print(sys.exc_info()[0])
58 
59   finally:
60     session = None
61     connection = None
62     application = None
63     SapGuiAuto = None
64 
65 Main()

xxxxxxxxxxbr  1 import sys, win32com.client,os,win32gui,win32con,timebr 2 def Main():br 3   try:br 4     SapGuiAuto = win32com.client.GetObject("SAPGUI")br 5     application = SapGuiAuto.GetScriptingEnginebr 6     connection = application.Children(0)br 7     if connection.DisabledByServer == True:br 8       print("Scripting is disabled by server")br 9       application = Nonebr10       SapGuiAuto = Nonebr11       returnbr12 br13     session = connection.Children(0)br14     if session.Busy == True:br15       print("Session is busy")br16       session = Nonebr17       connection = Nonebr18       application = Nonebr19       SapGuiAuto = Nonebr20       returnbr21 br22     if session.Info.IsLowSpeedConnection == True:br23       print("Connection is low speed")br24       session = Nonebr25       connection = Nonebr26       application = Nonebr27       SapGuiAuto = Nonebr28       returnbr29 br30     session.findById("wnd[0]").maximize()br31     session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").contextMenu()br32     session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectContextMenuItem("&XXL")br33     session.findById("wnd[1]/tbar[0]/btn[0]").press()br34     session.findById("wnd[1]/usr/ctxtDY_PATH").text = os.getcwd() #保存路径br35     session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "reportList.xlsx" #保存文件名br36     session.findById("wnd[1]/tbar[0]/btn[11]").press() #点击【替代】，覆盖可能的原文件br37     sapInfo=session.findById("wnd[0]/sbar").text #由于SAP脚本自身的特性，当程序读到左下角消息时，意味着数据已经传输完成！br38 br39     '''找到打开的excel文件，并自动关闭它'''br40     excelHwnd=0br41     while ExcelHwnd==0:br42         time.sleep(0.2)br43         excelHwnd=max(win32gui.FindWindow("XLMAIN","reportList.XLSX - Excel"),win32gui.FindWindow("XLMAIN","reportList - Excel"))br44 br45     '''以防SAP没有完全释放Excel进程，建议等待excel窗口可见后，再关闭它'''br46     isVisible=Falsebr47     while isVisible==False:br48         time.sleep(0.2)br49         isVisible=win32gui.IsWindowVisible(excelHwnd)br50 br51     '''关闭excel进程'''br52     win32gui.SendMessage(excelHwnd,win32con.WM_CLOSE,None,None)br53 br54 br55   except Exception as e:br56     print(e)br57     print(sys.exc_info()[0])br58 br59   finally:br60     session = Nonebr61     connection = Nonebr62     application = Nonebr63     SapGuiAuto = Nonebr64 br65 Main()

?