nối 1 sheet của nhiều file xls (1 người xem)

[sontrang]

Chào các bạn!
mình có 1 việc muốn nhờ mọi người giúp đỡ đây:
Minh có khoãng 200 file XLS,mình muốn nối 1 sheet của từng file thành 1 sheet nối đuôi nhau(sheet tổng hợp), nếu copy/paste thi không biết bao giờ mới xong và cung không chính xác nữa. Rất mong mọi người giúp đỡ.

 

[voda]

Yêu cầu của bạn có thể giải quyết được với điều kiện:
-Các sheet trên các file phải giống về cấu trúc.
-Các sheet trên các file có cùng tên thì càng tốt.
Bạn thử post file lên.(tối thiểu 3 file)

 

[sontrang]

tất cả các file đều giống nhau, vì 200 file làm từ 1 file mẫu, chỉ có số liệu thi khác nhau thôi.

tất cả các file được làm từ 1 file, nen các sheet có cùng tên và cấu trúc

 

[voda]

Bạn gởi file lên mới có cở sở để làm ( 1 file tổng hợp và khoảng 3 file dữ liệu)

 

[le tin]

tất cả các file đều giống nhau, vì 200 file làm từ 1 file mẫu, chỉ có số liệu thi khác nhau thôi.

Bạn nói mục đích của mình đi .
Vì nếu cấu trúc giống nhau thì có thể chỉ dùng 1 thôi , dùng 1 sheet khác làm dữ liệu

 

[dmtdmtbb]

Yêu cầu của bạn có thể giải quyết được
Bạn xem bài này và post lên file vd để mình chỉnh lại một chút là ok

http://www.giaiphapexcel.com/forum/showthread.php?t=8729

 

[feelingyes]

mình co 3 file gia lai, kom tum, daklak trong mỗi file co 3 sheet, mình chỉ muốn nối sheet abcd lại với nhau

giả sử mình có 3 file xls đó là gia lai, komtum, daklak, mình muốn nối sheet abcd của các file thành 1 file tổng hợp nối đuôi nhau như copy/paste zậy.

Cho Email đi mình gửi cho.
Câu chuyện về Access là chuyện giữa nhà con chú, con bác nên hỏi thăm thì được chứ có chuyên đề ở đây e xa quá.

Hòm thư của mình
Feelingyes@yahoo.com hoặc
Feelingyes@gmail.com

Xin cám ơn trước nha

 

[voda]

Bạn sontrang cho mình hỏi thêm: Khi copy nội dung các file vào file tonghop, có cần theo thứ tự trước sau gì không?

 

[sontrang]

không cần đâu bạn,chi tổng hợp chung lại thôi.

 

[voda]

Bạn tải về, giải nén các file vào chung 1 thư mục rồi chạy thử. Mình làm theo các file mẫu của bạn. Kết quả thế nào. báo cho mình biết

 

[dmtdmtbb]

Có đồ chơi đây, xem thử nha.

 

[sontrang]

Voda,bạn có thể giải thích đoạn code dùm mình đươc không. vì khi áp dụng thì lại không được.

 

[voda]

Đoạn code trên viết theo cấu trúc các file dữ liệu của bạn. Khi áp dụng có thể file thực tế có chỗ khác nên không được. Bạn nên nói rõ chỗ không được là gì. Nếu cần post file thực tế lên. (xóa bớt dữ liệu)

 

[dmtdmtbb]

Mình mới vừa thêm tính năng cho VE Utilities bạn có thể sử dụng Auto Copy Data link

 

[ZzNHCzZ]

Gộp Dữ Liệu Từ Nhiều File

Em cũng đang vướng trường hợp này.

File của Bác dmtdmtbb Cao siêu quá, em xài không quen.
Em đang nghiên cứu

File của Bác Voda rất hay, nhưng có 1 lổi sau. Nếu abcd của File Daklak ko có dữ liệu thì bị báo lổi.
Bác có thể sửa nhanh File này giúp em không.

Thân!

 

[voda]

Bạn dùng thử đoạn code 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
lRow = Range("A65000").End(xlUp).Row
Range("A5: D" & lRow + 1).ClearContents
      While wbName <> ""
            If wbName <> "Tonghop.xls" Then
                   Workbooks.Open ActiveWorkbook.Path & "\" & wbName
                   Workbooks(wbName).Activate
                   On Error GoTo Loi
                   Workbooks(wbName).Sheets("abcd").Select: Cells(3, 1).Select
                           If Cells(3, 1) <> "" Then
                              Selection.CurrentRegion.Select
                               t = Selection.Rows.Count
                              Selection.Offset(1).Resize(t - 1).Select
                              Selection.Copy
                              Windows(wbName).Visible = False
                              Windows("Tonghop.xls").Activate
                              Sheets("Tonghop").Select
                               lRow = Range("A65000").End(xlUp).Row
                                Cells(lRow + 1, 1).Select
                               ActiveSheet.Paste
                             End If
Loi:
                   Application.DisplayAlerts = False
                   Workbooks(wbName).Close
              End If
                   wbName = Dir
     Wend
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub