Lỗi khi kết nối dữ liệu ADODB

Liên hệ QC

lameco411

Thành viên hoạt động
Tham gia
27/11/15
Bài viết
162
Được thích
63
Em muốn kết nối với một file excel trên máy tính khác để lấy dữ liệu. Nhưng khi chạy thì nó báo lỗi thê này, mong mọi người giúp đỡ.
Nhấn Debug nó báo lỗi nay chỗ .Open.
1539077659015.png
Mã:
Sub laydulieu()
Dim TiCnn As ADODB.Connection
Dim TiData As ADODB.Recordset
Dim TiStr As String
TiStr = "\\192.168.1.9\cv\tonghop.xlsm"
Set TiCnn = New ADODB.Connection
Set TiData = New ADODB.Recordset
TiCnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TiStr & ";Extended Properties = ""Excel 12.0 Xml;HDR=YES;IMEX=1"";"
TiCnn.Open
With TiData
    .ActiveConnection = TiCnn
    .Source = "PhieuNhap"
    .LockType = adLockReadOnly
    .CursorType = adOpenForwardOnly
    .Open
End With
Worksheets.Add
Range("A2").CopyFromRecordset TiData
End Sub
 
Lần chỉnh sửa cuối:
Em muốn kết nối với một file excel trên máy tính khác để lấy dữ liệu. Nhưng khi chạy thì nó báo lỗi thê này, mong mọi người giúp đỡ.
Nhấn Debug nó báo lỗi nay chỗ .Open.
View attachment 205406
Mã:
Sub laydulieu()
Dim TiCnn As ADODB.Connection
Dim TiData As ADODB.Recordset
Dim TiStr As String
TiStr = "\\192.168.1.9\cv\tonghop.xlsm"
Set TiCnn = New ADODB.Connection
Set TiData = New ADODB.Recordset
TiCnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TiStr & ";Extended Properties = ""Excel 12.0 Xml;HDR=YES;IMEX=1"";"
TiCnn.Open
With TiData
    .ActiveConnection = TiCnn
    .Source = "PhieuNhap"
    .LockType = adLockReadOnly
    .CursorType = adOpenForwardOnly
    .Open
End With
Worksheets.Add
Range("A2").CopyFromRecordset TiData
End Sub
Nếu PhieuNhap không phải là name mà là tên sheet thì bạn chỉnh lại thử như sau:

Mã:
'...……

.Source = "select * from [PhieuNhap$]"
'...……….
 
Web KT
Back
Top Bottom