Lấy giữ liệu từ sheet đang đóng bằng code Ado

Các anh chị xem file dinh kèm.

Chào Các Anh
Hiện tại mình đang dùng code lấy giữ liệu trong bài sau:
https://www.giaiphapexcel.com/forum/showthread.php?75143-B%C3%A0i-t%E1%BA%ADp-v%E1%BB%81-ADO-c%C4%83n-b%E1%BA%A3n/page7
Nay muốn bổ sung thêm điều kiện khi gõ ngày cột B3 thì lộc giữ liệu những ngày mình cần.
Các anh chị xem file dinh kèm.

Nếu đơn giản kiểu dữ liệu cột Ngay của bạn như file đính kèm thì có thể dùng code sau:

Sub Copy3()
    Dim cnn As Object, lrs As Object
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "A.xls" & _
               ";Extended Properties=""Excel 8.0;HDR=Yes;"";")
    Set lrs = cnn.Execute("SELECT GhiChu, TEN, STT, SoLuong ,Ngay FROM [Data$] " & _
                          "WHERE GhiChu = 'C3' and Ngay=" & Sheet1.Range("B3"))
    Sheet1.Range("A6").CopyFromRecordset lrs

End Sub

www.giaiphapexcel.com/diendan/threads/l%E1%BA%A5y-gi%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-sheet-%C4%91ang-%C4%91%C3%B3ng-b%E1%BA%B1ng-code-ado.108487/

Khóa học SprinGO phù hợp

Khoá học Trưởng phòng nhân sự

Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...

Xem khóa học