Cách gộp các file excel khác nhau thành 1
Tôi nhận được cuộc gọi từ một người bạn muốn kết hợp nhiều tệp Excel vào một sổ làm việc Excel. Anh ấy có rất nhiều tệp trong một thư mục và anh ấy muốn đưa tất cả các trang tính từ tất cả các sổ làm việc vào một sổ làm việc duy nhất Show Mặc dù điều này có thể được thực hiện thủ công nhưng sẽ tốn thời gian và dễ bị lỗi Tuy nhiên, một mã VBA đơn giản có thể thực hiện việc này trong vài giây Kết hợp nhiều tệp Excel thành một tệpĐây là mã có thể kết hợp nhiều sổ làm việc Excel trong một thư mục được chỉ định thành một sổ làm việc Excel duy nhất Sub ConslidateWorkbooks() 'Created by Sumit Bansal from https://trumpexcel.com Dim FolderPath As String Dim Filename As String Dim Sheet As Worksheet Application.ScreenUpdating = False FolderPath = Environ("userprofile") & "DesktopTest" Filename = Dir(FolderPath & "*.xls*") Do While Filename <> "" Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop Application.ScreenUpdating = True End Sub Làm thế nào để sử dụng mã này?Dưới đây là các bước để sử dụng mã này
Điều này sẽ chạy mã và tất cả các trang tính từ tất cả các tệp Excel trong thư mục sẽ được hợp nhất thành một sổ làm việc Mã này hoạt động như thế nào?
Dưới đây là phần giải thích về hàm DIR trong thư viện MSDN Dir trả về tên tệp đầu tiên khớp với tên đường dẫn. Để nhận bất kỳ tên tệp bổ sung nào khớp với tên đường dẫn, hãy gọi lại Dir mà không có đối số. Khi không còn tên tệp nào khớp, Dir trả về một chuỗi có độ dài bằng 0 (“”) Bạn đã bao giờ thử một cái gì đó thuộc loại này bằng VBA chưa? Tiết kiệm lượng thời gian đáng kinh ngạc khi sử dụng VBA. Tham khảo KHÓA HỌC VBA Excel Bạn cũng có thể thích các Hướng dẫn Excel sau
SÁCH EXCEL MIỄN PHÍ Nhận Ebook 51 mẹo Excel để tăng năng suất và hoàn thành công việc nhanh hơn
Tên CÓ - GỬI SÁCH ĐIỆN TỬ CHO TÔI 98 suy nghĩ về “Cách kết hợp nhiều tệp Excel vào một sổ làm việc Excel”
|