GỘP NHIỀU FILE EXCEL THÀNH 1 FILE CỰC NHANH

[@hangkim3439]

bị lỗi runtime 52 chỗ filename, khắc phục sao b

[@duongbui5]

có ai thấy mã cốt ko cóp vào bình luận hộ tớ mới

[@nguyenqc1005]

GÔP SHEET LÔN NGƯỢC RỒI AH ANH KO THEO SỐ THỨ CÁC SHEET CŨ

[@nyem6404]

bạn làm được chưa

[@nguyenqc1005]

Share code đi f

[@TINHOCFAF]

mình gửi đoạn code nhé bạn Sub copyfile () Path="D:\THUC HANH EXCEL\New folder\" 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