Excel通过ADO(DAO)引用其他excel文件的数据

Sub test()
    Dim db     As Database
    Dim rst    As Recordset
    Dim myfield As Field
   Dim i As Long
    Set db = OpenDatabase("c:\22.xls", False, False, "excel 5.0;HDR=Yes") 'HDR=Yes显示标题
    Set rst = db.OpenRecordset("sheet14$A1:G10") '如果引用命名范围:"名称",引用工作表:"工作表名$",当前工作表单元格范围:"A1:G10"
    i = Range("A1").CopyFromRecordset(rst)
End Sub