Làm cách nào gộp liệu từ nhiều file (Workbook) khác nhau thành 1 Workbook duy nhất (7 người xem)

[fastdeath]

Hiện tại dữ liệu mình cần tổng hợp nằm dải giác ở rất nhiều các file excel khác nhau trong cùng 1 folder. Nếu coppy dữ liệu từ từng file 1 để lên 1 file duy nhất thì mất rất rất nhiều thời gian.

Các bạn có cách nào giải quyết bài toán này giúp mình đc không

Mình cảm ơn các bạn rất nhiều!

 

[Quang_Hải]

Hiện tại dữ liệu mình cần tổng hợp nằm dải giác ở rất nhiều các file excel khác nhau trong cùng 1 folder. Nếu coppy dữ liệu từ từng file 1 để lên 1 file duy nhất thì mất rất rất nhiều thời gian.

Các bạn có cách nào giải quyết bài toán này giúp mình đc không

Mình cảm ơn các bạn rất nhiều!

1. Bạn giải nén và copy file này vào thư mục chứa cac file cần tổng hợp
2. Tất cả tên file không được có dấu tiếng việt
3. Các file có dạng .xls >>> nếu sử dụng excel 2007 thì phải sửa lại code

Sub tonghop()
Application.ScreenUpdating = False
 Dim strPathFile As String, strFile As String
 Dim strPath As String, sh As Worksheet
 Set sh = ActiveSheet
 sh.[A2:C20000].ClearContents
 strPath = ThisWorkbook.Path & "\"
 strFile = Dir(strPath & "*.xls")
    Do While Len(strFile) > 0
        strPathFile = strPath & strFile
        If strFile <> ThisWorkbook.Name Then
            Workbooks.Open strPathFile
            With Workbooks(strFile)
               With .ActiveSheet
                  .Range(.[a2], .[c65536].End(3)).Copy sh.[a65536].End(3).Offset(1)
               End With
               .Close False
            End With
        End If
        strFile = Dir()
    Loop
Application.ScreenUpdating = True
End Sub

 

[fastdeath]

Bạn chỉ giúp mình cách thêm đoạn code này vào excel đc ko

Mình đang dùng excel 2007 nhưng save mặc định dạng xls cho mọi người đọc đc

Cảm ơn bạn nhiều!

 

[Quang_Hải]

Bạn chỉ giúp mình cách thêm đoạn code này vào excel đc ko

Mình đang dùng excel 2007 nhưng save mặc định dạng xls cho mọi người đọc đc

Cảm ơn bạn nhiều!

Không có file nên sửa tạm thế này

Sub tonghop()
Application.ScreenUpdating = False
 Dim strPathFile As String, strFile As String
 Dim strPath As String, sh As Worksheet
 Set sh = ActiveSheet
 sh.[A2:C20000].ClearContents
 strPath = ThisWorkbook.Path & "\"
 strFile = Dir(strPath & "*.xlsx")
    Do While Len(strFile) > 0
        strPathFile = strPath & strFile
        If Not strFile Like "TONG HOP*" Then
            Workbooks.Open strPathFile
            With Workbooks(strFile)
               With .ActiveSheet
                  .Range(.[a2], .[c65536].End(3)).Copy sh.[a65536].End(3).Offset(1)
               End With
               .Close False
            End With
        End If
        strFile = Dir()
    Loop
Application.ScreenUpdating = True
End Sub

 

[thomtv]

Hiện tại dữ liệu mình cần tổng hợp nằm dải giác ở rất nhiều các file excel khác nhau trong cùng 1 folder. Nếu coppy dữ liệu từ từng file 1 để lên 1 file duy nhất thì mất rất rất nhiều thời gian.

Các bạn có cách nào giải quyết bài toán này giúp mình đc không

Mình cảm ơn các bạn rất nhiều!
cái này ko biết có thể giúp gì cho bạn được ko đây.

 

[fastdeath]

Mình bấm Alt+F8 sau đó insert đoạn code của bạn vào và bấm run (F5) nhưng vẫn ko thấy tổng hợp đc gì

Tất cả các file mình cần tổng hợp đã để chung vào 1 folder

Bạn thương thì thương cho chót chỉ cho mình từng bước nhé!

Tks bạn!

 

[fastdeath]

Hiện tại dữ liệu mình cần tổng hợp nằm dải giác ở rất nhiều các file excel khác nhau trong cùng 1 folder. Nếu coppy dữ liệu từ từng file 1 để lên 1 file duy nhất thì mất rất rất nhiều thời gian.

Các bạn có cách nào giải quyết bài toán này giúp mình đc không

Mình cảm ơn các bạn rất nhiều!
cái này ko biết có thể giúp gì cho bạn được ko đây.

Cách của bạn theo mình hiểu thì dữ liệu nằm trên 1 workbook nhưng đc dải rác từ các worksheet khác nhau

Của mình thì lại cần tổng hợp từ các wworkbook khác nhau để lên đc 1 workbook duy nhất.

Cảm ơn bạn!

 

[fastdeath]

Bạn quanghai1969 ơi trong TH dữ liệu của mình có ở cột V trong bảng tính thì đoạn code phải thay đổi thế nào cho phù hợp

 

[fastdeath]

Mình đã tìm đc rồi. Cảm ơn bạn nhiều!

 

[songlamnghean]

Em có các biểu như thế này muốn tổng hợp lại thành biểu tổng các anh chị xem có giúp được em không http://www.mediafire.com/?7ll7l2abfk6u835. Nếu em dùng cách =file+file thì chết em mất. Mong anh chị giúp đỡ em với.

 

[dola_vietnam]

1. Bạn giải nén và copy file này vào thư mục chứa cac file cần tổng hợp
2. Tất cả tên file không được có dấu tiếng việt
3. Các file có dạng .xls >>> nếu sử dụng excel 2007 thì phải sửa lại code

Sub tonghop()
Application.ScreenUpdating = False
 Dim strPathFile As String, strFile As String
 Dim strPath As String, sh As Worksheet
 Set sh = ActiveSheet
 sh.[A2:C20000].ClearContents
 strPath = ThisWorkbook.Path & "\"
 strFile = Dir(strPath & "*.xls")
    Do While Len(strFile) > 0
        strPathFile = strPath & strFile
        If strFile <> ThisWorkbook.Name Then
            Workbooks.Open strPathFile
            With Workbooks(strFile)
               With .ActiveSheet
                  .Range(.[a2], .[c65536].End(3)).Copy sh.[a65536].End(3).Offset(1)
               End With
               .Close False
            End With
        End If
        strFile = Dir()
    Loop
Application.ScreenUpdating = True
End Sub

hi bác. theo code này thì nó chỉ coppy sheet đầu tiên. vậy bác có thể viết zúp em coppy đến sheet chỉ định được ko?
thanks

 

[huuthang_bd]

hi bác. theo code này thì nó chỉ coppy sheet đầu tiên. vậy bác có thể viết zúp em coppy đến sheet chỉ định được ko?
thanks

Bạn dùng file ở đây thử xem

 

[Quang_Hải]

hi bác. theo code này thì nó chỉ coppy sheet đầu tiên. vậy bác có thể viết zúp em coppy đến sheet chỉ định được ko?
thanks

Copy từ sheet được chỉ định hay là đến sheet chỉ định?
Không hiểu rõ ý bạn lắm nhưng với code trên thì bạn có thể chỉnh sửa chỗ này: With ActiveSheet thành With Sheets("ABC") thì sheet chỉ định sẽ là sheets("ABC")

 

[nobitaII]

Hi all, nhờ các bạn giúp mình tình huống sau

- Mình có 3 thư mục, trong đó chứa 3 file excel tên giống nhau, trong mỗi file excel có dữ liệu nằm trên Sheet1.

- Mong muốn ở đây là: tổng hợp 3 file excel kia, thành 1 file excel duy nhất, gom dữ liệu của Sheet1 của 3 file đó thành 1 sheet.

Thanks all.

 

[ndu96081631]

Hi all, nhờ các bạn giúp mình tình huống sau

- Mình có 3 thư mục, trong đó chứa 3 file excel tên giống nhau, trong mỗi file excel có dữ liệu nằm trên Sheet1.

- Mong muốn ở đây là: tổng hợp 3 file excel kia, thành 1 file excel duy nhất, gom dữ liệu của Sheet1 của 3 file đó thành 1 sheet.

Thanks all.

Một là bạn xem code của các cao thủ rồi tự mình chỉnh sửa lấy
Hai là bạn đưa các file của bạn lên đây (nếu không tự làm được)
Vậy đi nha!