Ghép hai file excel vào thành 1

[vantan]

Chào các bạn mình muốn hỏi một việc, mình hiện đang quản lý phần theo dõi khách hàng trả nợ của mình và của một người khác (do người kia vừa chuyển bộ phận khác)
Khi lọc ở phần mền ra thì mình phải lọc hai danh sách làm thế nào để có thể liên kết tự động hai danh sách đó vào nhau đc (các trường trong danh sách đó là giống nhau)
Mình có file kèm theo.
Mình muốn tạo một file mới với đầy đủ các trường như ở 2 file (file mới tạo ra bên trên là các giữ liệu của file 1 hết file 1 tự động gắn kèm giữ liệu của file 2: vd: như file 1 có tên A, B, C thì tiếp đó sẽ gắn vào thông tin file 2 là D, E, F) thông tin của các file 1 và file 2 là luôn thay đổi bạn ah, nên mình muốn dù nó có thay đổi thì cũng tự động gắn vào đc.

 

[duongdv]

Sao không thây files đính kèm của bạn nhỉ? Bạn nói rõ hơn ý tưởng của bạn để kết nối 2 file lại với nhau đi.

 

[vantan]

Mình đã kèm danh sách mong bạn chỉ giúp với

 

[duongdv]

Mình đã xem 2 files đó của bạn. Nhưng thực sự vẫn chưa hiểu được ý tưởng của bạn như thế nào? Bạn nói rõ hơn về ý tưởng kết nối của bạn đi

 

[voda]

Mình làm thế này không biết đúng ý bạn chưa. Bạn tải file về, giải nén thành 1 thư mục ( 3 file phải nằm trong cùng 1 thư mục). Mở file Tonghop. Kích cho chạy code thử xem:

Sub Tonghop()
Dim FolderName As String, wbName As String
Dim t As Integer, m As Integer
FolderName = ActiveWorkbook.Path
wbName = Dir(FolderName & "\" & "*.xls")
Application.ScreenUpdating = False
      While wbName <> ""
            If wbName <> "Tonghop.xls" Then
                   Workbooks.Open ActiveWorkbook.Path & "\" & wbName
                   Workbooks(wbName).Activate
                   Workbooks(wbName).ActiveSheet.Select: Cells(3, 1).Select
                   Selection.CurrentRegion.Select
                   t = Selection.Rows.Count
                   Selection.Copy
                   Windows(wbName).Visible = False
                   Windows("Tonghop.xls").Activate
                   Sheets("Tonghop").Select
                   Cells(3 + m, 1).Select
                   ActiveSheet.Paste
                   m = t + m
                   Application.DisplayAlerts = False
                   Workbooks(wbName).Close
            End If
                   wbName = Dir
     Wend
Rows(m - t + 3).Select
Selection.Delete Shift:=xlUp
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

 

[vantan]

Mình đã xem file của bạn Voda gửi cho mình nhưng máy mình không mở đc File Tong Hop, thông báo nói File đã đc bảo vệ.

 

[voda]

Không có file nào được bảo vệ hết. Chỉ có file Tonghop.rar là file nén. Máy bạn phải cài Winrar để giải nén. Bạn xem lại thử

 

[hht009]

Anh Voda oi,

Em đã đọc topic liên quan quến nối file excel em tải về chạy thử và áp dụng cho những file của em. Rất hoàn hảo em có thể kết nối dữ liệu của mình. Nhưng còn 1 vấn đề phiền toái nữa là em không muốn lấy phần tiêu đề thì phải làm sao, file của em lấy toàn bộ tiêu đề của các file khác, anh có thể giúp em code để chỉ lấy dữ liệu từ các hàng dữ liệu bên dưới tiêu đề :

Form của em trong các file là :

từ hàng 1 : tiêu đề
hàng thứ 2 : dữ liệu cần lấy .

Để có thể lấy dữ liệu không thì em nên viết code thế nào ?

Em cám ơn anh nhiều

 

[ketoan113]

chào bạn vantan !

Giả sử bạn có 2 file: file A và B, bạn muốn chỗ dử liệu từ file B sang file A?? Mình hiểu như vậy ko biết có đúng ý bạn k??

Nếu đúng thì trong excel có chức năng làm được.

Đó là chức năng Move or Copy khi bạn phải chuột lên sheet cần chuyển.

Chúc bạn thành công.

 

[voda]

Chào hht009!
Có thể chỉnh sơ code như sau :

Sub Tonghop()
Dim FolderName As String, wbName As String
Dim t As Integer, m As Integer
FolderName = ActiveWorkbook.Path
wbName = Dir(FolderName & "\" & "*.xls")
Application.ScreenUpdating = False
      While wbName <> ""
            If wbName <> "Tonghop.xls" Then
                   Workbooks.Open ActiveWorkbook.Path & "\" & wbName
                   Workbooks(wbName).Activate
                   Workbooks(wbName).ActiveSheet.Select
                   Cells(3, 1).Select
                   Selection.CurrentRegion.Offset(1).Select
                   t = Selection.Rows.Count - 1
                   Selection.Copy
                   Windows(wbName).Visible = False
                   Windows("Tonghop.xls").Activate
                   Sheets("Tonghop").Select
                   Cells(3 + m, 1).Select
                   ActiveSheet.Paste
                   m = t + m
                   Application.DisplayAlerts = False
                   Workbooks(wbName).Close
            End If
                   wbName = Dir
     Wend
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

 

[titanic20072007]

Bạn voda ơi
Nếu muốn dữ liệu của mỗi tệp ở riêng một sheet trong tệp tổng hợp (tức là không muốn dữ liệu của các tệp nối lại với nhau trên cùng một sheet) vẫn dữ nguyên tên sheet như khi ở tệp lẻ thì chỉnh thế nào?
http://www.giaiphapexcel.com/forum/member.php?7019-voda