Power Automate运行脚本刷新Power Query数据失效，求解决方案及邮件发送方法

一、优化Power Automate的Run Script脚本 #

Run Script失效多因脚本未覆盖Power Query的完整刷新逻辑，改用以下VBA脚本（需将Excel保存为.xlsm格式，再在Power Automate中调用）：

Sub RefreshPowerQueryAndSave()
    ' 刷新所有Power Query查询及数据连接
    ThisWorkbook.RefreshAll
    ' 根据数据量调整等待时间，确保刷新完成
    Application.Wait Now + TimeValue("00:00:10")
    ' 强制保存工作簿
    ThisWorkbook.Save
End Sub

注意：需确保Power Automate的Excel Online连接拥有读写权限，等待时间要匹配你的数据刷新耗时。

二、改用Power Automate内置的"刷新Excel工作簿"动作 #

直接使用Excel Online (Business) 连接器的内置动作，无需编写脚本：

• 操作步骤：添加动作→搜索「刷新工作簿」→选择目标工作簿及存储位置（OneDrive/SharePoint）
• 优势：官方原生动作，稳定性优于Run Script，专门适配Excel各类数据连接刷新

三、本地定时任务+自动邮件（适配本地存储的报表） #

若报表存储在本地，用Windows任务计划器配合VBA实现全自动化：

1. 在Excel中编写包含刷新、保存、发件的完整脚本：

Sub AutoRefreshAndEmail()
    ' 刷新Power Query数据
    ThisWorkbook.RefreshAll
    Application.Wait Now + TimeValue("00:00:15")
    ThisWorkbook.Save
    
    ' 通过Outlook发送邮件
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    With OutlookMail
        .To = "收件人邮箱@xxx.com"
        .Subject = "每日Power Query报表更新"
        .Body = "附件为最新报表，请查收"
        .Attachments.Add ThisWorkbook.FullName
        .Send
    End With
    
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

2. 创建Windows任务计划，设置每日定时触发，执行该Excel文件的宏（需确保Excel后台运行且Outlook已登录）

四、迁移到Power BI服务实现托管式自动化 #

若报表逻辑可迁移，推荐用Power BI服务完成全流程：

• 将Power Query逻辑导入Power BI Desktop，发布到Power BI服务
• 在服务中设置数据集每日刷新计划，配置数据源权限
• 开启报表订阅，设置自动将报表以PDF/Excel附件形式发送到指定邮箱
• 优势：完全托管，无需维护脚本或本地任务，适合长期自动化需求

内容的提问来源于stack exchange，提问作者swn