VBA复制工作簿工作表时出现Run-time error '424'问题求助

错误根源分析 #

1. Run-time error '424'（对象要求）
   错误触发于Sheet3.Activate行。Sheet3是工作表的代码名（VBA编辑器分配的内部标识），而非用户可见的工作表名称。首次运行时，目标工作簿中不存在代码名为Sheet3的工作表，VBA找不到对应对象，因此抛出错误。第二次运行时，首次复制的工作表已被分配Sheet3代码名，所以能正常执行。

2. "Can't enter break mode at this time"提示
   复制工作表会触发Excel内置事件（如工作表激活事件），这些事件占用VBA执行线程，导致无法暂停进入中断模式。

修复方案 #

修正后的代码 #

Sub BuildCosts()
    Dim sourceBook As Workbook
    Dim targetBook As Workbook
    Dim firstCopiedSheet As Worksheet
    Dim i As Integer
    
    ' 绑定源和目标工作簿
    Set targetBook = ActiveWorkbook
    Set sourceBook = IIf(Workbooks(1).Name = targetBook.Name, Workbooks(2), Workbooks(1))
    
    ' 禁用事件避免干扰
    Application.EnableEvents = False
    
    ' 反向遍历源工作表，稳定复制所有表
    For i = sourceBook.Sheets.Count To 1 Step -1
        sourceBook.Sheets(i).Copy After:=targetBook.Sheets(targetBook.Sheets.Count)
        ' 记录第一个被复制的工作表
        If i = sourceBook.Sheets.Count Then
            Set firstCopiedSheet = targetBook.Sheets(targetBook.Sheets.Count)
        End If
    Next i
    
    ' 恢复事件
    Application.EnableEvents = True
    
    ' 关闭源工作簿
    sourceBook.Close SaveChanges:=True
    
    ' 激活第一个复制的工作表（避免硬编码代码名）
    If Not firstCopiedSheet Is Nothing Then
        firstCopiedSheet.Activate
    End If
End Sub

关键修改说明 #

• 移除硬编码代码名引用：不再依赖Sheet3这类不确定的内部标识，而是在复制过程中记录第一个复制的工作表对象，后续通过对象直接激活，彻底消除424错误。
• 反向索引循环遍历：用从后往前的索引循环替代For Each遍历，避免集合遍历过程中可能出现的异常，提升复制稳定性。
• 禁用事件触发：复制前关闭Application.EnableEvents，避免Excel内置事件干扰执行流程，解决无法进入中断模式的问题，复制完成后恢复事件功能。
• 简化工作簿绑定逻辑：用IIf函数简化源工作簿的判断代码，提升代码可读性。

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