Cách gộp nhiều file excel vào một file duy nhất



Hướng dẫn cách gộp 2 hoặc nhiều file excel vào 1 file duy nhất.

ĐỀ NGHỊ XEM THÊM:
1. 25 thủ thuật Excel hàng đầu:
2. Các hàm Excel quan trọng nhất:
3. Làm chủ Excel qua 12 thao tác đơn giản:
4. Top 25 thủ thuật nâng cao:
5. Bí mật hàm Vlookup trong Excel:
6. Pivot Table trong Excel:
7. Lập Trình VBA trong Excel từ cơ bản đến nâng cao:
8. Ứng dụng VBA Excel:
9. Tạo báo cáo động trong Excel (Dashboard):
10. Hàm điều kiện IF từ cơ bản đến nâng cao:
11. Toàn bộ các hàm Excel thông dụng trong công việc:
12. 10 hàm Excel thông dụng nhất trong kế toán:
13. Excel cho Kế toán cơ bản đến nâng cao:
14. Hướng dẫn giải 101 bài thực hành Excel:
15. Excel nâng cao với công thức mảng:
16. Excel cơ bản cấp tốc cho người mới bắt đầu:
17. Hàm Excel thông dụng: IF, SumIF, CountIF, SumIFs, CountIFs:
18. Định dạng có điều kiện – Conditional Formatting:
19. Các phím tắt thông dụng trong Excel bạn cần biết:
20. Các lỗi thường gặp và cách khắc phục:
21. Học VBA trong Excel qua 101 chương trình mẫu:
22. Custom Formatting – Định dạng số trong Excel:
23. Hướng dẫn vẽ biểu đồ đơn giản và nhanh chóng:

Link tải file Excel thực hành:
Đăng ký Để nhận video mới:
Facebook hỗ trợ:
Fanpage Gà Excel:

đoạn code chương trình
———————-
Sub copyfile()
Path = “”
Filename = Dir(Path & “*.xls*”)
Do While Filename _mở đóng ngoặc nhọn_ “”
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy after:=ThisWorkbook.Sheets(1)
Next
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
———————-

Cảm ơn các bạn đã theo dõi. Nhớ đăng ký kênh, chia sẻ để ủng hộ và cập nhật video mới nhất từ Gà Excel nhé
Chúc các bạn học tốt Excel!!!
#Gaexcel #ExcelChicken #CungHocExcel #ExcelCoBan #ExcelNangCao

Xem thêm video học và các thủ thuật excel: https://mindovermetal.org/thu-thuat-excel/

Subscribe
Notify of
guest
21 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Gà Excel

Đoạn code như sau nhé:
Sub copyfile()
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
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

Dat Nguyen

AD ơi do file dữ liệu tương đương và có vài dòng bị trùng lập Khi chạy lệnh Excel liên tục hỏi mình có muốn đổi tên này nọ ko mình bấm Yes To All mà nó cứ liên tục hỏi có cách nào disable ko Ad ơi. Help!

Hương Hương

Em k có gộp dc

Nhung Pham

Mình bấm run mà nó k chạy, add chỉ giúp mình

Vietuc Invesco

ko chạy được
hệ thống báo lỗi Filename = Dir(Path & "*.xls*") thì xử lý như thế nào

Nguyễn Thế Vũ

quá hay ạ..thank ad

Lê Loan

mình gõ tiếng Việt không được nó hiện ra như này
Sub copyfile()

Path = ""

Filename = Dir(Path & "*.xls*")

Do While Filename m? đóng ngo?c nh?n ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy after:=ThisWorkbook.Sheets(1)

Next

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub
Rồi bấm nút play nó báo lỗi. Chỉ giúp mình cách khắc phục nhé

Trung Nguyễn

tuyệt vời, muốn nối các file vào 1 sheet thì code như thế nào, a cho nhé

Minh Hạ

Anh cho em hỏi em muốn hỏi: Em muốn cop một sheet đặc biệt từ nhiều file khác nhau (sheet có tên giống nhau ở nhiều file ) vào một file và tên sheet cop vào được đổi theo tên của file chứa sheet đó thì có thể dùng code nào ạ

Angela Đỗ

mình chạy nó bị lỗi ạ , nó chỉ dòng này bôi vàng
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

Lý Thắng Lợi

Add pro ơi mình đang mò mẫm chức năng reco maccro để copy bảng từ file này sang file khác (mình chỉ biết chon A1 file này =A1 ở file khác) nhưng khi không mở file nguồn thì những ô có dữ liệu tex đều bị lỗi "NAME" bạn có thể làm video hướng dẫn mình được không. Thank add

Linh Phạm

mình làm theo hướng dẫn, sau khi bấm Run thì xuất hiện bảng thông báo và bôi vàng dòng lện này: Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
mong ad chỉ dẫn thêm

TBT CHANNEL

A ơi chỉ e làm này với file excel nhe…vd: e có 1 file excel , sheet1 với dử liệu là các cột là các ngày trong tháng của năm 2020( 01/01/2020, 02/01/2020……30/12/2020) . Dữ liệu các dòng của các cột là số liệu … Làm sao để code VBA để lấy dư liệu vd: hôm nay là 02/02/2020 thì nó sẽ tự động lấy dữ liệu các cột ngày như sau: 02/02/2020, 03/02/2020, 04/02/2020 ( tức là lấy thêm 2 ngày tiep theo của ngày hiện tại nhưng loại trừ ngày thứ 7 và chủ nhật) copy dữ liệu đó vào 1sheet khác của 1 file excel đã tạo rỗng sẵn trong 1 thư mục sẵn có..??????

Sơn Share MKT

pro ơi em bị vàng phần đầu sub coppyfile
khắc phục ntn ạ

nguyen phuong

Bạn hướng dẫn giúp cách gom vào 1 sheet duy nhất với. Cám ơn bạn.

Tuan Pham

Gớm! Đầu mất công taon đoạn code vậy làm gì!

Binh Minh

Hay

XD&CS

Quá hay, nhưng mà mình làm thủ công tức copy từng sheet của từng file rồi dán vào file chung được không bạn

Thank

Phi Nguyễn Hồng

Tks a nhé. E thích học Excel lắm.

CHINH NGUYEN

like