Excel VBA个人宏跨工作簿问题：需将Workbook2的Sheet2复制到Workbook1

问题根源 #

你遇到的问题核心是工作簿对象指向错误：

• 宏存在于PERSONAL宏工作簿时，ThisWorkbook指代的是PERSONAL文件，不是你要操作的Workbook1
• 改用ActiveWorkbook后，打开Workbook2（test.xlsm）时它会自动成为活动工作簿，导致Sheet2被复制到了Workbook2里，完全偏离预期

修正后的完整代码 #

解决思路是提前锁定目标工作簿（Workbook1），用变量存储它，后续所有操作都基于这个明确的对象，避免混淆：

Public Sub CopySheetFromClosedWorkbook()
    Dim targetBook As Workbook ' 存储要操作的Workbook1
    Dim sourceBook As Workbook
    
    Application.ScreenUpdating = False
    
    ' 先获取当前运行宏的工作簿（就是你的Workbook1）
    Set targetBook = ActiveWorkbook
    
    ' 打开带模板的Workbook2
    Set sourceBook = Workbooks.Open("C:\..........\test.xlsm")
    
    ' 将Sheet2复制到Workbook1的最后一个工作表后面
    sourceBook.Sheets("Sheet2").Copy After:=targetBook.Sheets(targetBook.Sheets.Count)
    
    ' 关闭Workbook2，不需要保存修改就填False
    sourceBook.Close SaveChanges:=False
    
    ' 把Workbook1 Sheet1的值复制到新Sheet2对应位置
    With targetBook
        .Sheets("Sheet1").Range("B2").Copy
        .Sheets("Sheet2").Range("C5").PasteSpecial Paste:=xlPasteValues
        ' 这里继续加其他单元格的复制逻辑就行
        Application.CutCopyMode = False ' 清除剪贴板状态，避免弹窗
    End With
    
    ' 按需启用打印功能
    ' targetBook.Worksheets("Sheet2").PrintOut
    
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 新增targetBook变量：在打开Workbook2之前就捕获当前运行宏的Workbook1，确保后续所有操作的目标都是它
• 明确对象指向：所有工作表操作都绑定targetBook或sourceBook，彻底避免依赖ThisWorkbook/ActiveWorkbook的不确定性
• 清理剪贴板：添加Application.CutCopyMode = False，防止复制操作后残留的剪贴板状态干扰后续操作

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