Thanhlam2425
Thành viên hoạt động
- Tham gia
- 23/11/18
- Bài viết
- 113
- Được thích
- 12
Mọi ngời cho em hỏi lỗi này là bị Như thế nào ạ.
Mã:
Sub capnhaphanghoa()
Dim cn As Object
Dim rst As Object, sql As String
Dim Pro As String, lr As Long, arr3(), ten As String, i As Long, dk As String, k As Integer
Dim Ext As String
Dim Name As String
Dim s1 As String, s2 As String
s1 = "NGHI" & ChrW(7878) & "P V" & ChrW(7908)
s2 = "xu" & ChrW(7845) & "t " & ChrW(273) & "i" & ChrW(7873) & "u chuy" & ChrW(7875) & "n"
With Sheets("DT-DC")
lr = .Range("a" & Rows.Count).End(xlUp).Row
If lr > 7 Then .Range("A8:R" & lr).ClearContents
End With
arr3 = Array("210", "230", "250", "280", "289", "290", "293", "275")
Set cn = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.recordset")
For k = 0 To UBound(arr3)
With Sheets("DT-DC")
lr = .Range("a" & Rows.Count).End(xlUp).Row + 1
End With
Name = "C:\BUILDSTOREPROJEC\ACCOUNT\BAR LIST\" & arr3(k) & ".xlsx"
Pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
Ext = ";Extended Properties=""Excel 12.0;HDR=No;"";"
cn.Open (Pro & Name & Ext)
sql = "SELECT *from [DATA$A7:R100000] WHERE F5='a'" '" & "'" & s2 & "'"
rst.Open sql, cn, 3, 1
Sheets("DT-DC").Range("A" & lr).CopyFromRecordset rst
rst.Close
cn.Close
Next k
End Sub
