Giúp code lấy dữ liệu 3 file vào 1 file ( Vùng lấy 3 file giống nhau )

[minhtuan55]

Chào cả nhà GPE ! Em cần gom dữ liệu 3 file vào 1 File data ( dữ liệu cần lấy 3 file giống nhau hoàn toàn A2:E10 )



File chủ e đã viết code sẳng lấy đường dẫn từng File con ( cái này code e tự viết rồi )



Mình muốn khi máy chủ Click vào nút Bấm Lấy dữ liệu 3 file con thì Sẽ code sẽ thực hiện theo trình tự sau
Step 1. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 1 vào vùng A2:E10 của file Data
Step 2. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 2 vào vùng A11:E19 của file Data
Step 3. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 3 vào vùng A20:E28 của file Data

Xin chân thành cảm ơn !

 

[Hoàng Nhật Phương]

Chào cả nhà GPE ! Em cần gom dữ liệu 3 file vào 1 File data ( dữ liệu cần lấy 3 file giống nhau hoàn toàn A2:E10 )

View attachment 209435

File chủ e đã viết code sẳng lấy đường dẫn từng File con ( cái này code e tự viết rồi )

View attachment 209436

Mình muốn khi máy chủ Click vào nút Bấm Lấy dữ liệu 3 file con thì Sẽ code sẽ thực hiện theo trình tự sau
Step 1. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 1 vào vùng A2:E10 của file Data
Step 2. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 2 vào vùng A11:E19 của file Data
Step 3. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 3 vào vùng A20:E28 của file Data

Xin chân thành cảm ơn !

@minhtuan55,
Bạn thử tham khảo bài viết trong link gửi kèm xem sao ạ:
https://www.giaiphapexcel.com/diend...cel-khách-đang-đóng.134882/page-2#post-894404

 

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

Chào cả nhà GPE ! Em cần gom dữ liệu 3 file vào 1 File data ( dữ liệu cần lấy 3 file giống nhau hoàn toàn A2:E10 )

View attachment 209435

File chủ e đã viết code sẳng lấy đường dẫn từng File con ( cái này code e tự viết rồi )

View attachment 209436

Mình muốn khi máy chủ Click vào nút Bấm Lấy dữ liệu 3 file con thì Sẽ code sẽ thực hiện theo trình tự sau
Step 1. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 1 vào vùng A2:E10 của file Data
Step 2. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 2 vào vùng A11:E19 của file Data
Step 3. lấy dữ liệu từ Vùng A2:E10 của File chi nhánh 3 vào vùng A20:E28 của file Data

Xin chân thành cảm ơn !

Thử code sau nhé:

Sub LayDL_HLMT()
    Dim strSQL As String
    strSQL = "Select * from [excel 12.0;database=" & Sheet1.Range("I3") & "].[Sheet1$A1:E10] " & _
             "Union all Select * from [excel 12.0;database=" & Sheet1.Range("I4") & "].[Sheet1$A1:E10] " & _
             "Union all Select * from [excel 12.0;database=" & Sheet1.Range("I5") & "].[Sheet1$A1:E10] "
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
        Sheet1.Range("A2:E100").ClearContents
        Sheet1.Range("A2").CopyFromRecordset .Execute(strSQL)
    End With
    
End Sub

 

[minhtuan55]

Thử code sau nhé:

Sub LayDL_HLMT()
    Dim strSQL As String
    strSQL = "Select * from [excel 12.0;database=" & Sheet1.Range("I3") & "].[Sheet1$A1:E10] " & _
             "Union all Select * from [excel 12.0;database=" & Sheet1.Range("I4") & "].[Sheet1$A1:E10] " & _
             "Union all Select * from [excel 12.0;database=" & Sheet1.Range("I5") & "].[Sheet1$A1:E10] "
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
        Sheet1.Range("A2:E100").ClearContents
        Sheet1.Range("A2").CopyFromRecordset .Execute(strSQL)
    End With
  
End Sub

À bác ơi. Cho em cái này tí . Nếu bác rảnh thì giúp em. Còn bận thì thôi. Code của Bác chỉ chạy khi 3 đường dẫn vào Hợp Lệ. và chỉ cần 1 đường dẫn sai thì code nó cũng không chạy cái đường dẫn còn lại. Ví dụ Đường dần file 1, File 2 Ok, còn file 3 sai. Thì vẫn chạy File 1, File 2, Còn file3 bị lỗi thì không cần chạy. Em cảm ơn bác nhiều. Chúc bác sức khỏe

 

[Lequocvan]

Em là em làm cùi bắp với 3 file được ghi tại I3, I4, I5 theo yêu cầu của bác. Chứ chưa làm kiểu tổng hợp nhé!