Mục lục
Để kết hợp sổ làm việc trong Excel, hãy sử dụng mã sau. Mã này sẽ lấy tất cả các trang tính đầu tiên trong mọi sổ làm việc được tìm thấy trong một thư mục:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Hợp nhất Sổ làm việcHợp nhất phụ WB ()Application.EnableEvents = SaiApplication.ScreenUpdating = SaiLàm mờ đường dẫn dưới dạng chuỗi, ThisWB dưới dạng chuỗi, lngFilecounter As LongDim wbDest As Workbook, shtDest As Worksheet, ws As WorksheetLàm mờ tên tệp dưới dạng chuỗi, Wkb dưới dạng sổ làm việcDim CopyRng As Range, Dest As RangeDim RowofCopySheet dưới dạng số nguyênRowofCopySheet = 2 'Hàng để bắt đầu trong các trang tính mà bạn đang sao chép từ đóThisWB = ActiveWorkbook.Namepath = GetDirectory ("Chọn một thư mục chứa các tệp Excel bạn muốn hợp nhất")Đặt shtDest = ActiveWorkbook.Sheets (1)Filename = Dir (đường dẫn & "\ *. Xlsm", vbNormal)If Len (Filename) = 0 Then Exit SubDo Until Filename = vbNullStringNếu không tên tệp = ThisWB thìĐặt Wkb = Workbooks.Open (Tên tệp: = đường dẫn & "\" & Tên tệp)Đặt CopyRng = Wkb.Sheets (1) .Range (Cells (RowofCopySheet, 1), Cells (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Đặt Dest = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell) .Row + 1)CopyRng.Copy DestWkb. Đóng SaiKết thúc nếuTên tệp = Dir ()VòngApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueMsgBox "Hoàn thành Macro"Kết thúc Sub |
Ông Excel
