Lấy dữ liệu từ các file excel không mở? (1 người xem)

  • Thread starter Thread starter vungoc
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

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.
 
Web KT

Bài viết mới nhất

Trả lời
41
Đọc
17K
Back
Top Bottom