求助：编写VBA脚本实现从关闭工作簿复制覆盖工作表至指定关闭工作簿

以下是针对你需求的完整VBA代码，附带关键说明和操作指引：

Sub CopyAndOverwriteSheets()
    Dim sourcePath1 As String, sourcePath2 As String, targetPath As String
    Dim sourceWB1 As Workbook, sourceWB2 As Workbook, targetWB As Workbook
    Dim wsReport1 As Worksheet, wsReport2 As Worksheet
    
    ' --------------------------
    ' 请替换为你的实际文件路径
    ' --------------------------
    sourcePath1 = "C:\你的文件夹路径\Excel1.xlsx" ' Excel1的完整路径
    sourcePath2 = "C:\你的文件夹路径\Excel2.xlsx" ' Excel2的完整路径
    targetPath = "C:\你的文件夹路径\Excel3.xlsx" ' Excel3的完整路径
    
    On Error GoTo ErrorHandler ' 开启错误捕获
    
    ' 后台打开源文件（只读）和目标文件
    Set sourceWB1 = Workbooks.Open(Filename:=sourcePath1, ReadOnly:=True, Visible:=False)
    Set sourceWB2 = Workbooks.Open(Filename:=sourcePath2, ReadOnly:=True, Visible:=False)
    Set targetWB = Workbooks.Open(Filename:=targetPath)
    
    ' 获取要复制的工作表对象
    Set wsReport1 = sourceWB1.Worksheets("report1")
    Set wsReport2 = sourceWB2.Worksheets("report2")
    
    ' 删除目标文件中已存在的同名工作表（实现覆盖）
    Application.DisplayAlerts = False ' 关闭删除确认弹窗
    On Error Resume Next ' 忽略工作表不存在的错误
    targetWB.Worksheets("report1").Delete
    targetWB.Worksheets("report2").Delete
    On Error GoTo ErrorHandler ' 恢复正常错误捕获
    
    ' 将新工作表复制到目标文件末尾
    wsReport1.Copy After:=targetWB.Sheets(targetWB.Sheets.Count)
    wsReport2.Copy After:=targetWB.Sheets(targetWB.Sheets.Count)
    
    ' 保存并关闭所有文件
    targetWB.Save
    sourceWB1.Close SaveChanges:=False
    sourceWB2.Close SaveChanges:=False
    targetWB.Close SaveChanges:=False
    
    MsgBox "工作表复制覆盖完成！", vbInformation
    Exit Sub

ErrorHandler:
    ' 错误处理：提示错误并清理已打开的文件
    MsgBox "执行出错：" & Err.Description, vbCritical
    If Not sourceWB1 Is Nothing Then sourceWB1.Close SaveChanges:=False
    If Not sourceWB2 Is Nothing Then sourceWB2.Close SaveChanges:=False
    If Not targetWB Is Nothing Then targetWB.Close SaveChanges:=False
End Sub

关键说明 #

• 路径修改：必须将代码中的文件路径替换为你实际的文件完整路径。如果Excel1/2/3和Excel4在同一个文件夹，可改用ThisWorkbook.Path & "\Excel1.xlsx"自动获取路径，避免手动输入错误。
• 静默打开：代码中用Visible:=False实现后台打开源文件，不会弹出额外窗口，执行更流畅。
• 覆盖逻辑：先删除目标文件中的同名工作表（关闭了系统提示），再复制新表进去，完全实现“覆盖”效果；如果目标文件没有同名表，删除操作会被忽略，不影响执行。
• 错误防护：包含错误捕获机制，遇到文件找不到、工作表不存在等问题时，会自动关闭已打开的文件并提示错误原因，避免文件被锁定。

按钮绑定步骤 #

1. 打开Excel4，点击顶部菜单栏的开发工具 → 插入 → 选择按钮（表单控件），在工作表上拖动画出按钮。
2. 弹出“指定宏”窗口，选择CopyAndOverwriteSheets宏，点击确定。
3. 右键按钮可修改显示文字（比如改成“更新主报表”）。

注意：测试前请备份Excel3文件，防止意外数据丢失；执行时确保Excel启用宏（打开文件时选择“启用内容”）。

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