Nhờ viết gộp nhiều file Excel vào thành 1 file (1 người xem)

[viendinhngoc]

mình muốn lấy tổng hợp nhiều file vào thành 1 sheet EXCEL
(COpy sheet đầu tiên, hoặc chọn được số sheet càng tốt)
Giữ nguyên định dạng cac Sheet

( ví dụ 2 file mỗi file 3 sheet == khi tổng thành 1 file 6 sheet)
cám ơn các bạn

 

[Quang_Hải]

mình muốn lấy tổng hợp nhiều file vào thành 1 sheet EXCEL
(COpy sheet đầu tiên, hoặc chọn được số sheet càng tốt)
Giữ nguyên định dạng cac Sheet

( ví dụ 2 file mỗi file 3 sheet == khi tổng thành 1 file 6 sheet)
cám ơn các bạn

Thử code này xem sao. Sheet nào có dữ liệu thì sẽ được tổng hợp

Sub MergeFies()
    Dim FilesToOpen, X As Integer, sh As Worksheet
    On Error GoTo ErrHandler
    Application.ScreenUpdating = False
    FilesToOpen = Application.GetOpenFilename _
      ("All Excel Files, *.xls?*", MultiSelect:=True, Title:="Files to Merge")
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "No Files were selected"
        GoTo ExitHandler
    End If
    X = 1
    While X <= UBound(FilesToOpen)
        Workbooks.Open Filename:=FilesToOpen(X)
        With ActiveWorkbook
        For Each sh In .Worksheets
            If sh.UsedRange.Rows.Count > 1 Then
                sh.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            End If
        Next
        .Close False
        End With
        X = X + 1
    Wend
ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub

 

[viendinhngoc]

Cám ơn bạn quang hải
tuyet vời
đúng ý của mình luoon
thank bạn nhé