Nối nhiều File Excel thành một File

[thanhlanh]

Nếu như bạn có nhiều File Excel mà muốn nối lại thành một File duy nhất . Ví dụ File A.XLS có 2 Sheet , File B.XLS có 3 Sheet muốn nối thành File C có 5 Sheet cách thức tiến hành như sau .

1. Mở File C , là nơi sẽ gộp tất cả các Sheet của File A.XLS và B.XLS thành một File , bấm Alt_F11 .
2. Cửa sổ Microsoft Visual Basic mở ra , bấm menu Insert > Module .

Dán những nội dung dưới đây

Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.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)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub

1. Quay trở lại Excel
2. Bấm menu Tool > Macro > Macro , bạn sẽ chọn CombineWorkbooks và bấm Run
3. Cửa sổ File to Merge mở ra , bạn hãy chọn những File mà muốn nối bằng cách giữ phím CTRL và chọn những File này , sau đó bấm Open

Nguồn:1088

 

[ntwl1080]

Em muốn sử dụng modul trên để add-in nhưng báo lỗi Method 'Move' of object 'Sheets' failed
nhờ anh chị chỉ giúp.