Nhờ mọi người giúp đỡ về truy xuất dữ liệu

[tvnhan009]

Em có file này mong mọi người giúp đỡ. File nhập kho gồm Số bao, chất lượng, khối lượng tồn và số lô. Em mong muốn xuất ra 1 file excel riêng biệt theo yêu cầu lọc. Ví dụ như em muốn truy xuất dữ liệu những bao nào có chất lượng "1", Tồn khó có"1200 kg" và nằm ở lô 1ạ.

 

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

Em có file này mong mọi người giúp đỡ. File nhập kho gồm Số bao, chất lượng, khối lượng tồn và số lô. Em mong muốn xuất ra 1 file excel riêng biệt theo yêu cầu lọc. Ví dụ như em muốn truy xuất dữ liệu những bao nào có chất lượng "1", Tồn khó có"1200 kg" và nằm ở lô 1ạ.

Làm cho bạn cái lấy dữ liệu, còn cái xuất file thì bạn tự tìm hiểu nhé.

Sub LayDL_HLMT()
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0;HDR=No"";Data Source=" & ThisWorkbook.FullName
        Sheet2.Range("A2").CopyFromRecordset .Execute("Select * from [Sheet1$A5:E] Where F3=1 and F5=1 and F4=1200")
    End With
End Sub