如何无需打开源工作簿运行Excel宏实现数据复制

原宏需要手动打开MACC_Analysis_Consolidated.xlsx才能运行，还大量使用Select/Activate这类低效且易出错的操作。下面是修改后的代码，可后台读取源文件数据，无需手动打开，同时优化了操作逻辑：

Sub CopyMRP()
    Dim srcPath As String
    Dim srcWB As Workbook
    Dim destWS As Worksheet
    Dim targetCol As Range
    
    ' 获取源文件路径（与当前宏所在文件同文件夹）
    srcPath = ThisWorkbook.Path & "\MACC_Analysis_Consolidated.xlsx"
    
    ' 后台加载源文件（不显示窗口）
    Set srcWB = GetObject(srcPath)
    
    ' 设定目标工作表（可根据实际需求修改表名，比如改成ThisWorkbook.Worksheets("你的表名")）
    Set destWS = ThisWorkbook.ActiveSheet
    
    ' 定位目标列：从A1往下到最后一行，再往右到最后一列，然后右移一列
    Set targetCol = destWS.Range("A1").End(xlDown).End(xlToRight).Offset(0, 1)
    
    ' 直接读取源文件I2:I28的数据到目标位置（偏移1行，对应原代码的ActiveCell.Offset(1,0)逻辑）
    destWS.Range(targetCol.Offset(1, 0), targetCol.Offset(27, 0)).Value = srcWB.Worksheets(1).Range("I2:I28").Value
    
    ' 读取源文件D1的数据到目标列首行
    targetCol.Value = srcWB.Worksheets(1).Range("D1").Value
    
    ' 关闭源文件（无需保存，仅读取未修改）
    srcWB.Close SaveChanges:=False
    
    ' 释放对象资源
    Set srcWB = Nothing
    Set destWS = Nothing
    Set targetCol = Nothing
End Sub

关键修改说明 #

• 后台读取源文件：通过GetObject在后台加载源文件，不会弹出窗口，操作完成后自动关闭，无需手动打开。
• 移除Select/Activate操作：直接操作工作表和单元格对象，跳过选中激活步骤，提升代码运行效率和稳定性。
• 自动获取路径：用ThisWorkbook.Path自动获取当前文件所在文件夹路径，避免硬编码路径导致的错误。
• 直接赋值替代复制粘贴：直接将源单元格的值赋值给目标单元格，比复制粘贴更高效，还不会占用剪贴板。

注意：如果源数据不在第一个工作表，把srcWB.Worksheets(1)改成对应的工作表名称，例如srcWB.Worksheets("DataSheet")。

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