Lỗi khi kết nối dữ liệu ADODB (2 người xem)

[lameco411]

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.

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

 

[Hai Lúa Miền Tây]

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

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:

'...……

.Source = "select * from [PhieuNhap$]"
'...……….