私信我或关注微信号：狮范课，回复：学习，获取免费学习资源包。

用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:\Users\Administrator\Desktop\报表\日报\！源数据（每日刷新）.xlsm"file_path2=r"C:\Users\Administrator\Desktop\报表\日报\日报模板（会用宏的可以用用）.xlsm"useVBA(file_path1, '数据刷新宏')useVBA(file_path2, '日报宏')

数据刷新宏代码：

Sub 数据刷新宏() ActiveWorkbook.RefreshAllEnd Sub

日报宏代码：

Sub 日报宏()'获得昨天的标准日期(1018这种格式)yesterday = DateAdd("d", -1, Now)yesterday_format = Format(yesterday, "mmdd") & ".xlsx"Path = Application.ThisWorkbook.Path'增加一段代码，强制必须刷新ActiveWorkbook.UpdateLink Name:= _ Path & "\！源数据（每日刷新）.xlsm", Type:=xlExcelLinksSheets("门店维度").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:=FalseEnd Sub

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

来源网络，侵权联系删除

私信我或关注微信号：狮范课，回复：学习，获取免费学习资源包。