Cách ghép nhiều file excel thành một

Là một cán bộ Ban QLDA mình thường xuyên phải làm công tác tổng hợp báo cáo, kế hoạch từ các phòng ban khác thành 01 file duy nhất trình lãnh đạo. Nếu thao tác thủ công thì quá oải, mất thời gian dẫn đến chậm tiến độ. Vậy hãy mở Excel lên và cùng mình thử cách sau đây để rút ngắn quá trình đó nhé.

Cách thực hiện

Bước 1: Các bạn copy đoạn mã code dưới đây

Sub GetSheets()
Path = ""
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

Bước 2: Vào Excel và nhấn tổ hợp phím ALT+F11 để mở cửa sổ VBA lên. Tiếp theo chọn tab Insert rồi chọn Module. Và các bạn copy đoạn mã ở trên vào trong khung soạn thảo như hình dưới

Bước 3: Các bạn hãy truy cập vào thư mục chứa các file Excel mà bạn cần ghép lại. Click vào thanh Address để lấy đường dẫn thư mục và Copy nó.

Bước 4: Quay lại cửa sổ VBA mà bạn vừa copy đoạn Code ở bước 1. Bạn hãy Paste đường dẫn thư mục bạn vừa copy ở bước 3 vào phần này của đoạn Code như hình sau (Lưu ý việc chèn thêm ký tự \ vô cùng quan trọng đó nhé)

Bước 5: Các bạn hãy nhấn F5 hoặc click biểu tượng sau

Bước 6: Tắt cửa sổ VBA đi các bạn sẽ thấy các File Excel đã được tổng hợp thành một File duy nhất như hình

Lời kết:

Bài viết có vẻ dài dòng nhưng kết quả mỹ mãn phải không mọi người.