Excel VBA循环执行.Save后Sub终止问题求助

核心原因 #

1. 事件触发干扰：打开文件后立即启用Application.EnableEvents = True，导致保存/关闭操作触发目标工作簿的内置事件（如Workbook_BeforeSave、Workbook_BeforeClose），这些事件会中断当前宏的循环执行流程。
2. 单元格引用不明确：With wbkPF.Sheets("Page1")块中直接使用Range("F1")，虽语法上能运行，但存在隐式引用风险，未明确绑定到指定工作表。
3. 终止语句不规范：使用End语句会直接终止所有VBA进程，而非仅退出当前子过程，可能引发意外问题。

修正后的代码 #

Sub OpenAndReplace()
    Dim PFList, PFListCurrFile As Variant
    Dim countFiles As Integer
    Dim wbkCurBook, wbkPF As Workbook

    Set wbkCurBook = ThisWorkbook

    ' 选择需要修正的文件
    PFList = Application.GetOpenFilename( _
        FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", _
        Title:="选择需要修正的文件", _
        MultiSelect:=True)

    ' 未选择文件则退出子过程
    If VarType(PFList) = vbBoolean Then Exit Sub
    If UBound(PFList) = 0 Then Exit Sub

    countFiles = 0

    ' 全局禁用屏幕刷新、自动计算和事件，避免干扰
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    For Each PFListCurrFile In PFList
        Set wbkPF = Workbooks.Open(Filename:=PFListCurrFile, ReadOnly:=False)
        countFiles = countFiles + 1

        ' 明确绑定到指定工作表的单元格
        With wbkPF.Sheets("Page1")
            .Range("F1").FormulaR1C1 = "=Data!R[-49]C[6]/1000"
        End With

        ' 保存并关闭文件
        wbkPF.Save
        wbkPF.Close SaveChanges:=False
    Next

    ' 恢复Excel默认运行环境
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 全局控制事件：循环开始前就禁用Application.EnableEvents，整个处理流程中保持禁用，直到所有文件处理完成后再恢复，彻底避免事件触发打断循环。
• 明确单元格绑定：将Range("F1")改为.Range("F1")，确保操作对象是With块指定的Page1工作表，消除隐式引用错误。
• 规范退出逻辑：用Exit Sub替代End，仅退出当前子过程，不影响Excel其他运行进程。
• 统一恢复环境：所有文件处理完成后，统一恢复屏幕刷新、自动计算和事件触发，保证Excel回到正常工作状态。

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