用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可以实现自动化的操作并实现定时的执行脚本
来源网络,侵权联系删除