ADODB - Tổng hợp dữ liệu (1 người xem)

[khuongnguyencm69]

* Em đang tập tành tổng hợp dữ liệu bằng ADODB, sau 1 thời gian tìm tòi, cóp nhặt trên diễn đàn của các anh/chị master, sửa các chi tiết nhỏ của code cho phù hợp với nhu cầu sử dụng của em. Nay em còn 2 vấn đề mà bứt tóc, vò tay, search google mà vẫn chưa tìm ra, nên nhờ anh chị/chị trên diễn đàn trợ giúp em.
- Em có 1 file ADODB và 2 file con 6540 và 6597 ---> em đã tổng hợp được phần số liệu ở bảng phiếu xuất của 2 file con --> còn phần lấy "ngày" ở dòng 5 và người "nhận hàng" ở dòng 7 trong 2 file con --> để đổ vào 2 trường "ngay" và "nhan hang" ở file tổng hợp (ADODB.xlsm) em chưa làm được.
-------> Em có đính kèm file, mong anh/chị master ra tay giúp đỡ, chân thành cảm ơn!!!!

 

[VetMini]

Lưu ý các quý vị sắp sửa ra tay: thớt đòi người có bằng Thạc sĩ (Master)

Theo wiki:

 

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

* Em đang tập tành tổng hợp dữ liệu bằng ADODB, sau 1 thời gian tìm tòi, cóp nhặt trên diễn đàn của các anh/chị master, sửa các chi tiết nhỏ của code cho phù hợp với nhu cầu sử dụng của em. Nay em còn 2 vấn đề mà bứt tóc, vò tay, search google mà vẫn chưa tìm ra, nên nhờ anh chị/chị trên diễn đàn trợ giúp em.
- Em có 1 file ADODB và 2 file con 6540 và 6597 ---> em đã tổng hợp được phần số liệu ở bảng phiếu xuất của 2 file con --> còn phần lấy "ngày" ở dòng 5 và người "nhận hàng" ở dòng 7 trong 2 file con --> để đổ vào 2 trường "ngay" và "nhan hang" ở file tổng hợp (ADODB.xlsm) em chưa làm được.
-------> Em có đính kèm file, mong anh/chị master ra tay giúp đỡ, chân thành cảm ơn!!!!

Tôi làm ví dụ đơn giản để bạn dễ hiểu. Bạn theo đó mà chỉnh sửa lại theo ý bạn nhé.

Sub GopDL_HLMT()
    Dim strSQL As String
    Dim strFile As String
    strFile = " [EXCEL 12.0;HDR=No;Database=" & ThisWorkbook.Path & "\warehouse_2033910290706-6540.xlsx]"
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
         strSQL = "Select (select F1 from " & strFile & ".[Worksheet$A5:A5]),(select F1 from " & strFile & ".[Worksheet$A7:A7]),F1,F2,F3,F4,F8,F9,F10 from " & strFile & ".[Worksheet$A10:J1000] where F4 is not null "
         Sheet1.Range("A2").CopyFromRecordset .Execute(strSQL)
    End With


End Sub

 

[khuongnguyencm69]

Lưu ý các quý vị sắp sửa ra tay: thớt đòi người có bằng Thạc sĩ (Master)

Theo wiki:
View attachment 248500

Dạ em chỉ nghĩ đơn giản, những hiểu biết rộng và sâu 1 kiến thức mãng lĩnh vực nào đó, em sẽ gọi là master (thầy), không liên quan đến bằng cấp ạ, do em chỉ là công nhân, nói thô, học thiển, nên có gì sai em xin lỗi, hì! Chứ không có ý gì! Ai chỉ em, thì em sẽ tôn trọng và gọi là master!

Bài đã được tự động gộp: 2/11/20

Tôi làm ví dụ đơn giản để bạn dễ hiểu. Bạn theo đó mà chỉnh sửa lại theo ý bạn nhé.

Sub GopDL_HLMT()
    Dim strSQL As String
    Dim strFile As String
    strFile = " [EXCEL 12.0;HDR=No;Database=" & ThisWorkbook.Path & "\warehouse_2033910290706-6540.xlsx]"
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
         strSQL = "Select (select F1 from " & strFile & ".[Worksheet$A5:A5]),(select F1 from " & strFile & ".[Worksheet$A7:A7]),F1,F2,F3,F4,F8,F9,F10 from " & strFile & ".[Worksheet$A10:J1000] where F4 is not null "
         Sheet1.Range("A2").CopyFromRecordset .Execute(strSQL)
    End With


End Sub

Dạ em cám ơn anh ạ, để em chạy thử!

 

[khuongnguyencm69]

Code của anh Hai Lúa Miền Tây phải nói trên cả tuyệt vời à, nó ngắn và dễ hiểu, cảm ơn anh đã thông não giúp em, hì!