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