Excel VBA无需打开工作簿跨簿复制单元格数据的实现方法

要在不显示目标工作簿的前提下完成数据复制，最稳妥的方式是用VBA后台隐藏打开Stockbook.xlsm，完成写入后自动保存关闭，全程不会干扰当前工作，也能避免卡顿。具体操作如下：

步骤 #

1. 在已打开的Bill.xlsm里按Alt + F11打开VBA编辑器
2. 右键左侧的Bill.xlsm节点 → 插入 → 模块
3. 粘贴下面的代码，记得替换目标文件的路径
4. 按F5运行代码，或者把代码绑定到工作表按钮上方便后续使用

完整代码 #

Sub CopyDataToClosedStockbook()
    Dim targetWorkbook As Workbook
    Dim sourceData As Range
    Dim targetRange As Range
    Dim targetFilePath As String
    
    ' 替换成你的Stockbook.xlsm的实际完整路径
    ' 如果两个文件在同一个文件夹，可改成：targetFilePath = ThisWorkbook.Path & "\Stockbook.xlsm"
    targetFilePath = "C:\你的文件夹路径\Stockbook.xlsm"
    
    ' 锁定当前工作簿的源数据区域
    Set sourceData = ThisWorkbook.Sheets("Sheet1").Range("A1:A5")
    
    ' 后台隐藏打开目标工作簿，不显示窗口
    Set targetWorkbook = Workbooks.Open(Filename:=targetFilePath, Visible:=False)
    
    ' 锁定目标工作簿的写入区域
    Set targetRange = targetWorkbook.Sheets("Sheet1").Range("C1:C5")
    
    ' 直接赋值复制数据（比Copy/Paste快，不占剪贴板）
    targetRange.Value = sourceData.Value
    
    ' 保存修改并关闭目标工作簿
    targetWorkbook.Save
    targetWorkbook.Close SaveChanges:=False ' 已经保存过，这里设False避免重复提示
    
    ' 清理对象释放内存
    Set targetRange = Nothing
    Set sourceData = Nothing
    Set targetWorkbook = Nothing
    
    MsgBox "数据复制完成", vbOKOnly + vbInformation
End Sub

关键细节 #

• 隐藏打开：Visible:=False参数让目标工作簿在后台运行，完全不显示窗口，从根源减少卡顿
• 路径要求：必须填写绝对路径，如果两个文件同目录，用ThisWorkbook.Path自动获取当前文件路径，避免手动输入错误
• 高效复制：用Value属性直接赋值，比传统的复制粘贴效率高，也不会影响剪贴板内容
• 保存逻辑：先执行Save再关闭，关闭时设SaveChanges:=False，不会弹出多余的保存确认框

关于"无需打开文件写入"的说明 #

Excel本身没有原生支持不打开文件就写入数据的功能，所谓的"隐藏打开"就是最接近需求的方案——后台静默操作，用户完全感知不到目标文件被打开，也不会导致当前工作簿卡顿。

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