lỗi không clink file exel khi filter bang VBA

[trinhvinhtai]

hi moi người


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode.Value = 13 Then
Dim strSQL1, strSQL2 As String
strSQL1 = "select * from [EXCEL 12.0;HDR=No;Database=" & ThisWorkbook.Path & "\OFFSET & RFIF+SB 2018.xlsm].[A5:K] where F5 like '" & Sheet1.TextBox1.Text & "'"
strSQL2 = "select * from [EXCEL 12.0;HDR=No;Database=" & ThisWorkbook.Path & "\PACKING PFL-OS 2018.xlsm].[A5:K] where F5 like '" & Sheet1.TextBox1.Text & "'"
With Sheet1
If Len(TextBox1.Text) = 0 Then
.Range("A3:K2000").ClearContents
Exit Sub
End If
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
.Range("A3:K2000").ClearContents
.Range("A3").CopyFromRecordset cn.Execute(strSQL1 & " Union all " & strSQL2)
End With
End If

End Sub


anh trong diễn đàn này có cho em code nay nhưng để ỗ đĩa riêng mình xài ok. khi em bo ỗ đĩa deptshare xài chung có thi filer không cho báo lỗi mọi người xem giúp em với