下面是一个使用ADODB从已关闭的工作簿导入数据的示例代码：

Sub ImportDataFromClosedWorkbook()
    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    Dim strSQL As String
    Dim strFilePath As String
    Dim strSheetName As String
    
    ' 设置要导入的文件路径和工作表名称
    strFilePath = "C:\Path\To\Workbook.xlsx"
    strSheetName = "Sheet1"
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFilePath & ";" & _
              "Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
    
    ' 打开连接
    conn.Open strConn
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 构建SQL查询语句
    strSQL = "SELECT * FROM [" & strSheetName & "$]"
    
    ' 执行查询
    rs.Open strSQL, conn
    
    ' 将查询结果导入到当前工作表的A1单元格开始的位置
    Sheet1.Range("A1").CopyFromRecordset rs
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象变量
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "数据已成功导入。"
End Sub

你需要根据自己的实际情况修改strFilePath和strSheetName变量的值。此代码将从指定的已关闭工作簿路径中的指定工作表中导入数据到当前工作表的A1单元格开始的位置。请根据需要调整目标位置。