如何通过python结合excel中的VBA和PQ做日报

vba是excel的老牌工具，PQ(power query)则是2013以来excel最伟大的更新，可以说50万以下的数据，用PQ>vba=Python（50万以上当然是Python+mysql了）
PQ的使用核心在于通过外部链接数据源，用“全部刷新”，进而获得最新的数据
而刷新完成后，可以结合VBA（也就是宏），把后续的工作一步完成
但是全部刷新的动作属于后台操作，而且不同的电脑、不同的数据源会导致不同的完成时间，我目前还没有找到2016版本如何判断“ActiveWorkbook.RefreshAll”这个动作是否已经完成，所以用了笨办法：强制等待
11月14日更新：已经解决了如何判断“ActiveWorkbook.RefreshAll”这个动作是否已经完成，方法如下：
点击到引用了外部数据的数据单元格上，然后选择“数据”-“属性”-“查询属性”-“允许刷新后台”的√取消，这样excel就必须执行完全部刷新这个动作后才能做其它事情了！
注意：每一个链接必须全部手动改掉，目前没有找到可以自动修改或者批量修改的地方

用Python的好处是，可以把一系列的操作全部通过程序完成，步骤分解下来有这些：
1、通过爬虫获取数据（用selenium操作，当然这个是最愚蠢且效率最低的办法，最好还是直接后台数据库调取）；
2、用VBA和PQ配合完成数据的刷新和报表的制作；
3、用SMTP完成邮件发送（但是现在有bug，可能是某些二流服务器的问题，附件总是收不到或者是变成.dat文件，比如189邮箱。。。比如outlook。。。）；
4、用itchat完成微信内的表格和文字发送。
上述四个步骤中，目前已经实现了2、3、4（3和4的代码可以参看我之前的文章）
其实用VBA就能解决报表的制作和邮件发送了，但是1和4是肯定没办法完成的，而Python至少还有可能性！

2的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.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