Cách Gộp Nhiều Tệp Excel (Merge Excel Files) Vào Một Tệp Excel Chủ, Hoặc Nhiều Tệp Excel Thành PDF Cực Nhanh Thành Công 100% Bằng VBA Script | Mình Đã Thử Nghiệm

     Xin chào tất cả các anh em của tôi đã quen, sắp quen và chẳng bao giờ quen, chào mừng các bạn đã đến với NMHRUBY, hôm nay NMHRUBY sẽ hướng dẫn các bạn cách "Gộp Nhiều Tệp Excel Vào Một Files Chủ". Do mình tính chất công việc cũng như bắt được những nhu cầu thiết yếu của các dân văn phòng như mình, thì xin mời các bạn cùng mình vào bài viết luôn nhé.

Banner Blogs by NMHRUBY

    Mình hiện tại là một nhân viên văn phòng và sử dụng in ấn tài liệu Excel rất nhiều, vì để nói dùng thống kê thu chi, hoặc số lượng nhân viên bằng Excel sẽ tiện hơn Word vì tính linh hoạt của nó, vậy nên nhiều khi khá nhiều tệp Excel được gửi đến và nó có nhiều Sheet bên trong và nhiều tệp, khiến mình phân vân và suy ra là bị đuối, đuối ở đây không phải chán việc, mà về phần máy in thì có những máy in nó sẽ có lưu lại lệnh khi in, nhiều máy in nó sẽ không lưu, vậy hôm nay mình sẽ chia sẻ cho các bạn 2 cách để gộp nhiều tệp Excel vào một tệp Excel chủ.

CÁCH 1: Gộp Nhiều Tệp Excel Vào Một Tệp Excel Chủ Bằng VBA Script.

    *Lưu ý: Với cách này thì mình cũng xin nhắc trước luôn tránh tình trạng các bạn thắc mắc hay vướng mắc. Vì Excel căn bản nó cũng đã tốn kha khá tài nguyên máy như CPU + Ram, nên với việc sử dụng VBA Script này nó sẽ tốn vào Ram nhiều hơn và 1 phần CPU để chạy tệp Excel, nên vì vậy các bạn lưu ý cấu hình máy giúp mình để chạy VBA Script một cách mượt mà nhất nhé. Mình sẽ để link check cấu hình cũng như là số file để chạy VBA Script mượt mà và không bị lỗi vặt.

    Bước 1: Chuột phải ngoài Desktop - New - Microsoft Excel Worksheet

    Bước 2: Đổi tên tệp Excel vừa tạo tuỳ ý bạn, nên nhớ không ghi tên tệp Excel có dấu nhé, VD: tepgoc.xlsx. Mở tệp Excel vừa tạo lên.

    Bước 3: Bấm đồng thời phím tắt Alt + F11 để mở Microsoft Visual Basic for Application - Insert - Module và Copy đoạn Code bên dưới vào và bấm X để thoát cả Tab Module và Microsoft Visual Basic ra.

Sub MergeExcelFilesbyHungDev()
    Dim fnameList, fnameCurFile As Variant
    Dim countFiles, countSheets As Integer
    Dim wksCurSheet As Worksheet
    Dim wbkCurBook, wbkSrcBook As Workbook

    fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Hung Dev say: Choose Excel files to merge", MultiSelect:=True)

    If (vbBoolean <> VarType(fnameList)) Then

        If (UBound(fnameList) > 0) Then
            countFiles = 0
            countSheets = 0

            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual

            Set wbkCurBook = ActiveWorkbook

            For Each fnameCurFile In fnameList
                countFiles = countFiles + 1

                Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)

                For Each wksCurSheet In wbkSrcBook.Sheets
                    countSheets = countSheets + 1
                    wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
                Next

                wbkSrcBook.Close SaveChanges:=False

            Next

            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic

            MsgBox "Procesed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets" & vbCrLf & "Coding by Hung Dev, cam on ban da su dung :3", Title:="Hung Dev Say: Merge Excel files"
        End If

    Else
        MsgBox "No files selected", Title:="Hung Dev Say: Merge Excel files"
    End If
End Sub

    Bước 4: Ở giao diện Excel - View - Macros - MergeExcelFilesbyHungDev - Run, đến bước này các bạn cần trỏ đến nơi mà các bạn lưu tệp Excel, bước 4 này là bước quan trọng các bạn cần xem cấu hình chi tiết có thể dùng gộp được bao nhiêu tệp Excel 1 lần nhé.

    Khá là phù hợp gộp nhiều tệp để in ấn hoặc là để lưu trữ, gửi đi hoặc chỉnh sửa.

CÁCH 2: Gộp Nhiều Tệp Excel Thành PDF Đầy Đủ Sheet

    Với cái bước này thì nó đã có Tools sẵn Online do mình nghiên cứu và tham khảo cũng như tìm tòi được thôi, nên bước này nó đơn giản ngắn gọn không phải mình lười trình bày, mình chỉ ghi ngắn gọn các bạn sẽ hiểu luôn. Cái này phù hợp Scan để gửi xem không cho chỉnh sửa hoặc in 1 lần nhiều Sheet bằng 1 lệnh in. Free không cần Premium khá tốt.

    Truy cập URL Tools: https://nmhruby.exceltopdf.tools.free.vn

    Các bước thực hiện như sau "Chọn tệp tin - chọn tệp Excel muốn gộp - Chuyển thành - Chờ đợi khi xong thì bấm tải về" Phần này phụ thuộc vào dung lượng tệp Excel và tốc độ mạng.

    Tổng kết lại với 2 bước trên mình đã tham khảo và lưu trữ lại nhằm mục đích phục vụ những anh em dân văn phòng xử lí in ấn với file Excel thuận tiện hơn. 

    Lời cuối cho phép NMHRUBY được cảm ơn những bạn đã ghé thăm Website của mình, nếu có thiếu sót đừng ngại mà hãy Comment xuống bên dưới để NMHRUBY sẽ hỗ trợ và giải đáp thắc mắc của các bạn nhé. Bây giờ thì xin chào và hẹn gặp lại ^^ Good bye see you again :33

    

  Truy cập URL Check Services: Coming Soon