chèn thêm câu lệnh "where f1 is not null" trong câu lệnh

Liên hệ QC

NguyenthiH

Thành viên mới đăng ký
Tham gia
11/12/16
Bài viết
946
Được thích
172
Giới tính
Nữ
Em có câu lệnh này trong file:
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
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 đỡ.
 
Web KT
Back
Top Bottom