NguyenthiH
Thành viên mới đăng ký
- Tham gia
- 11/12/16
- Bài viết
- 965
- Được thích
- 175
- Giới tính
- Nữ
Em có câu lệnh này trong file:
vì dữ liệu không đập vào E4 mà đập vào E5(có dong trống ở trên (E4), và Anh giúp em nói thêm câu lệnh "Where f1 is not null" vào, mà em không rành code nên chả biết thêm vào chổ nào.
Mong các anh chị giúp đỡ.
Mã:
Sub LocKhongTrung3Cot()
'Xoa du lieu cu
ClearOld
'Lap danh sach duy nhat moi
With CreateObject("ADODB.Connection")
.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
Sheets("List Meterial").Range("E4").CopyFromRecordset .Execute("Select f1,f2,f11 From [MR Issue$E2:O] Group by f1,f2,f11 ")
End With
End Sub
Mong các anh chị giúp đỡ.