如何通过VBA将已关闭工作簿的数据复制到当前打开的工作簿？

完全可以实现从「未手动打开」的关闭状态工作簿中复制数据到当前活动工作簿，你之前查阅资料看到的“无法实现”结论存在场景限定偏差。
绝大多数资料提到的“无法操作关闭工作簿”，特指完全不经过文件读取、不加载文件结构直接修改磁盘上Excel文件二进制内容的场景，日常办公场景下不需要手动打开源文件即可完成数据复制的方案非常成熟，覆盖不同使用需求：

1. 零代码跨文件公式引用（适合快速取单元格值） #

不需要写代码、不需要调用额外导入功能，直接在当前工作簿单元格输入带完整路径的引用公式即可，源文件处于关闭状态也能正常返回值：

='C:\你的文件存储路径\[源工作簿名称.xlsx]源工作表名称'!目标单元格地址

例：要读取D盘「业务数据」文件夹下「2024销售表.xlsx」中「月报」工作表的B3单元格值，公式写为：

='D:\业务数据\[2024销售表.xlsx]月报'!B3

输入后支持下拉、右拉批量取数，缺点是仅能读取单元格值，无法同步格式、公式，文件存储路径变更后需要重新更新引用源。

2. Power Query 导入（推荐普通非编程用户使用） #

全程可视化操作，不需要写公式或代码，支持数据预处理、一键刷新同步，适合需要定期同步源文件数据的场景，操作路径如下：

• 点击当前工作簿「数据」选项卡→选择「获取数据」→「自文件」→「自工作簿」
• 在弹出的文件选择框中选中处于关闭状态的目标源工作簿
• 在导航器中选择需要导入的工作表，可按需点击「转换数据」提前做筛选、去重、格式调整等清洗操作
• 点击「加载」即可将数据导入当前工作簿，后续源文件数据更新后，右键点击导入的表选择「刷新」即可同步最新内容，全程不需要手动打开源文件。

3. VBA ADO直连读取（适合大批量数据自动化场景） #

通过数据库连接方式直接读取关闭工作簿的结构化数据，不需要加载整个Excel文件，十万级以上数据读取速度极快，仅能读取单元格值，不支持同步格式：

Sub 读取关闭工作簿结构化数据()
    Dim conn As Object, rs As Object
    Dim sourcePath As String, sourceSheet As String
    ' 按需修改以下两个参数为实际路径和工作表名
    sourcePath = "C:\数据文件夹\数据源.xlsx"
    sourceSheet = "销售明细"
    
    ' 建立与关闭状态工作簿的连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sourcePath & _
              ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"";"
    
    ' 通过SQL查询读取目标工作表全部数据
    Set rs = conn.Execute("SELECT * FROM [" & sourceSheet & "$]")
    
    ' 将查询到的数据写入当前活动工作表A1起始区域
    ThisWorkbook.ActiveSheet.Range("A1").CopyFromRecordset rs
    
    ' 释放连接资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

4. VBA后台静默打开复制（需要同步格式/公式/对象的场景） #

如果需要完整复制源文件的单元格格式、公式、批注、图表等内容，可以通过VBA在后台隐藏打开源工作簿，完成复制后自动关闭，全程不会弹出源文件窗口，用户无感知：

Sub 后台静默复制关闭工作簿全内容()
    Dim sourceWb As Workbook
    Dim sourcePath As String
    ' 修改为实际源文件路径
    sourcePath = "C:\数据文件夹\数据源.xlsx"
    
    ' 关闭界面刷新和系统提示，隐藏打开过程
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 只读方式后台打开源文件
    Set sourceWb = Workbooks.Open(Filename:=sourcePath, ReadOnly:=True)
    
    ' 按需执行复制操作，示例为复制源文件第一个工作表的全部已用区域到当前表A1
    sourceWb.Sheets(1).UsedRange.Copy ThisWorkbook.ActiveSheet.Range("A1")
    
    ' 关闭源文件不保存改动
    sourceWb.Close SaveChanges:=False
    
    ' 恢复Excel默认界面设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Set sourceWb = Nothing
End Sub

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