Lấy dữ liệu từ các file excel không mở?

[chauvietvan]

Em thử sửa chi dùng 1 file thôi mà sao không được ạ bác.
Nó cứ bão lỗi ở dòng "rst.Open SQL, cnn, 3, 3, 1"
Sub GPE()
Dim cnn As Object
Dim rst As Object
Dim SQL$
Set cnn = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.recordset")
With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Data Source") = ThisWorkbook.FullName
.Properties("Extended Properties") = "Excel 12.0;HDR=NO;IMEX=1"
.Open
End With
SQL = "SELECT a.f1,b.f2,b.f4,b.f5,b.f7,b.f8,b.f9,b.f10,VAL(b.f8)+VAL(b.f9)+VAL(b.f10)," _
& "FROM (([Sheet1$A6:A65536] a LEFT JOIN " _
& "[Excel 12.0;HDR=NO;IMEX=1;DATABASE=" & ThisWorkbook.Path & "\DATA1.xlsx].[Sheet1$A3:J65536] b " _
& "ON a.f1=b.f1"
rst.Open SQL, cnn, 3, 3, 1
Range("A6").CopyFromRecordset rst
Set rst = Nothing
cnn.Close: Set cnn = Nothing
End Sub

Chỗ này anh xử lý được chưa? em cũng mới bắt đầu tìm hiểu, cũng làm thử lại để liên kết 1 file nhưng bị báo lỗi như vậy, nếu anh xử lý được rồi mong anh chỉ em với.