如何用Power Automate实现Excel列变更触发邮件？解决循环及替代方案

Power Automate流程修复（解决无限循环） #

你当前的流程会无限循环，核心原因是只要Excel文件有任何修改，就会触发流程并扫描所有行，只要存在“Signed”状态的行就发邮件，完全没做“仅当该行刚变为Signed且未发过通知”的判断。修复方案如下：

1. 添加辅助列：在Excel表格里新增一列，命名为Notification Sent，默认值设为No。
2. 调整流程步骤：
   • 保留原SharePoint触发器When a file or item is modified
   • 使用List rows present in a table获取表格行，添加筛选条件：Signed Agreement eq 'Signed' and Notification Sent eq 'No'
   • 对筛选出的每一行执行：
     • 发送邮件给财务人员
     • 使用Update a row将该行的Notification Sent更新为Yes

这样只有首次变为Signed且未发过通知的行才会触发邮件，彻底避免循环。

无需Power Automate的实现方案 #

方案1：Excel VBA宏 #

直接在Excel文件中编写事件宏，当指定列的值变为“Signed”时自动发邮件：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 假设"Signed Agreement"是第3列（C列），可根据实际调整列号
    Const TARGET_COLUMN As Integer = 3
    Const SIGNED_VALUE As String = "Signed"
    
    ' 只处理单个单元格变更，避免批量修改触发多次
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 判断是否是目标列且值变为Signed
    If Target.Column = TARGET_COLUMN And UCase(Target.Value) = UCase(SIGNED_VALUE) Then
        Dim OutApp As Object
        Dim OutMail As Object
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        
        On Error Resume Next
        With OutMail
            .To = "财务人员邮箱地址" ' 替换为实际邮箱
            .Subject = "需处理发票：" & Target.Offset(0, -2).Value ' 假设第一列是项目名称，可调整偏移量
            .Body = "项目 " & Target.Offset(0, -2).Value & " 的协议已签署，请处理发票。"
            .Send ' 若要先预览，改为.Display
        End With
        On Error GoTo 0
        
        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
End Sub

使用说明：

• 按Alt+F11打开VBA编辑器，找到对应工作表，粘贴上述代码
• 替换代码中的目标列号、财务邮箱、邮件内容等参数
• 保存文件为.xlsm格式（启用宏的工作簿）

方案2：Excel内置提醒+手动触发邮件 #

如果不想用宏，可设置条件格式标记已签署的行，再结合Excel的“发送邮件”功能手动触发：

• 给“Signed Agreement”列设置条件格式：当值为“Signed”时，单元格填充红色或高亮
• 定期筛选出高亮行，选中后通过文件>共享>电子邮件>发送邮件批量发送通知（需手动操作，适合变更频率低的场景）

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