Python结合VBA进行数据处理与报表制作

用Python的好处是，可以把一系列的操作全部通过程序完成，步骤分解下来有这些：

1、通过爬虫获取数据（用selenium操作，当然这个是最愚蠢且效率最低的办法，最好还是直接后台数据库调取）；

2、用VBA和PQ配合完成数据的刷新和报表的制作；

3、用SMTP完成邮件发送（但是现在有bug，可能是某些二流服务器的问题，附件总是收不到或者是变成.dat文件，比如189邮箱。。。比如outlook。。。）；

4、用itchat完成微信内的表格和文字发送。

上述四个步骤中，目前已经实现了2、3、4（3和4的代码可以参看我之前的文章）

其实用VBA就能解决报表的制作和邮件发送了，但是1和4是肯定没办法完成的，而Python至少还有可能性！

使用的VBA代码和Python代码如下（主要思路就是用宏操控PQ，用Python操控宏）：

Python代码：

import win32com.client
#运行宏
def useVBA(file_path, VBA):
 xlApp = win32com.client.DispatchEx("Excel.Application")
 xlApp.Visible = True
 xlApp.DisplayAlerts = 0
 xlBook = xlApp.Workbooks.Open(file_path,False)
 xlBook.Application.Run(VBA) #宏
 xlBook.Close(True)
 xlApp.quit()
file_path1=r"C:UsersAdministratorDesktop报表日报！源数据（每日刷新）.xlsm"
file_path2=r"C:UsersAdministratorDesktop报表日报日报模板（会用宏的可以用用）.xlsm"
useVBA(file_path1, '数据刷新宏')
useVBA(file_path2, '日报宏')

数据刷新宏代码：

Sub 数据刷新宏()
 ActiveWorkbook.RefreshAll
End Sub

日报宏代码：

Sub 日报宏()
'获得昨天的标准日期(1018这种格式)
yesterday = DateAdd("d", -1, Now)
yesterday_format = Format(yesterday, "mmdd") & ".xlsx"
Path = Application.ThisWorkbook.Path
'增加一段代码，强制必须刷新
ActiveWorkbook.UpdateLink Name:= _
 Path & "！源数据（每日刷新）.xlsm", Type:=xlExcelLinks
Sheets("门店维度").Select
 Cells.Select
 Range("A2").Activate
 ActiveWorkbook.BreakLink Name:= _
 Path & "！源数据（每日刷新）.xlsm", Type:=xlExcelLinks
 Selection.Replace What:="#N/A", Replacement:="0", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False
 Sheets("门店通报").Select
 Range("A1:K1").Select
 Selection.Copy
 Range("A2:K2").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False
 ActiveWorkbook.SaveAs Filename:= _
 Path & "【基础经营-实体1】：“乘风破浪”百日冲刺报表" & yesterday_format, _
 FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

其中的VBA代码需要根据不同的情况和需求更改，但是Python通过调用VBA可以实现自动化的操作并实现定时的执行脚本

来源网络，侵权联系删除