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


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

3. Quay trở lại Excel

4. Bấm menu Tool > Macro > Macro , bạn sẽ chọn CombineWorkbooks và bấm Run

5. 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: http://www.tuvantinhoc1088.com/tin-vp/excel/10486-noi-nhieu-file-excel-thanh-mot-file.html

Các bài liên quan

Đổi tên các tập tin bằng macro
Tạo danh sách tên tập tinh bằng lệnh MS-Dos
Nhân bản trang tính
Giới thiệu về Macro
Forms ComboBox
ActiveX ComBoBox
Định dạng tên la tinh
Nối nhiều sheet thành một sheet
Tạo mục lục tự động trong Excel
Cách hiện tất cả trang tính đã ẩn
Tạo công thức đọc số tiền thành chữ

0 comments :