Lấy dữ liệu nhiều dòng có điều kiện từ File M2 sang File M1 bằng ADO

[linhcute2000]

Chào Anh/Chị,

Em có vấn đề muốn lấy dữ liệu mới từ File M2 sang File M1

File M2 (không mở) có dữ liệu: bao gồm dữ liệu cũ (đã có ở file M1) & cả dữ liệu mới nhập (chưa có ở File M1)

File M1 sẽ là File chứa code và Update dữ liệu mới từ File M2 vào, cụ thể:

Trên File M2 có dữ liệu (nhiều dòng), cụ thể:
+ Đơn DH00001 - Mã U2: đã có dữ liệu trên File M1 -> Cũ -> không cần lấy
+ Đơn DH00002 & DH00003 - Mã U2: là dữ liệu mới chưa có trên File M1 -> Cần code ADO lấy sang File M1

Điều kiện lấy là: Mã User + Mã đơn ở File M2 chưa có tại File M1 -> code lấy.
(Mã đơn của mỗi User sẽ tăng dần từ 1, cho nên mới cần mã User để phân biệt đấy ạ.)

Và dữ liệu khi lấy vào File M1 được nối tiếp bên dưới ạ!

Xin Anh/Chị giúp em!
Trân trọng cảm ơn,

 

[thaytu]

Tải về lưu tại ổ D, mới sơ bộ là M1 đã lấy toàn bộ dữ liệu M2, clik phải, chọn làm mới. Cột check, nếu bằng 0 thì cần copy dán qua, còn chạy tự động nữa thì thêm chút VBA là xong (chưa kịp)

 

[linhcute2000]

Tải về lưu tại ổ D, mới sơ bộ là M1 đã lấy toàn bộ dữ liệu M2, clik phải, chọn làm mới. Cột check, nếu bằng 0 thì cần copy dán qua, còn chạy tự động nữa thì thêm chút VBA là xong (chưa kịp)

Cảm ơn bạn, tôi đang muốn trợ giúp dùng Code VBA ADO để tiện tích hợp thôi ạ!

 

[VetMini]

Lý do tại sao phải ADO, mà không thể là cái khác?

 

[thaytu]

Lý do tại sao phải ADO, mà không thể là cái khác?

Chắc là phần nhỏ trong số 1 ứng dụng lập trình, và mục đích là gì chưa rõ

 

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

Chào Anh/Chị,

Em có vấn đề muốn lấy dữ liệu mới từ File M2 sang File M1

File M2 (không mở) có dữ liệu: bao gồm dữ liệu cũ (đã có ở file M1) & cả dữ liệu mới nhập (chưa có ở File M1)

File M1 sẽ là File chứa code và Update dữ liệu mới từ File M2 vào, cụ thể:

Trên File M2 có dữ liệu (nhiều dòng), cụ thể:
+ Đơn DH00001 - Mã U2: đã có dữ liệu trên File M1 -> Cũ -> không cần lấy
+ Đơn DH00002 & DH00003 - Mã U2: là dữ liệu mới chưa có trên File M1 -> Cần code ADO lấy sang File M1

Điều kiện lấy là: Mã User + Mã đơn ở File M2 chưa có tại File M1 -> code lấy.
(Mã đơn của mỗi User sẽ tăng dần từ 1, cho nên mới cần mã User để phân biệt đấy ạ.)

Và dữ liệu khi lấy vào File M1 được nối tiếp bên dưới ạ!

Xin Anh/Chị giúp em!
Trân trọng cảm ơn,

Bạn dùng tạm code sau nhé:

Sub CapNhatDL_HLMT()
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\FILE USER M2.xlsb;Extended Properties=Excel 12.0")
        Sheet1.Range("A16").CopyFromRecordset .Execute("Select * from [DATA$] where [User] & [" & Sheet1.Range("C1") & "] " & _
                    " Not In ( Select distinct [User] &[" & Sheet1.Range("C1") & "] from [" & ThisWorkbook.FullName & "].[NHAP LIEU$] where [User] is not null)")
    End With
End Sub