Cách Chuyển Nhiều Sheet Trong Excel Sang Pdf

Trong cuộc sống và công việc hàng ngày, chúng ta thường xuyên sử dụng Microsoft Excel để làm việc với các bảng tính. Một trong những yêu cầu thường gặp là chuyển đổi các bảng tính này sang định dạng PDF hoặc CSV để chia sẻ hoặc lưu trữ. Trong bài viết này, tôi sẽ hướng dẫn bạn cách chuyển đổi nhiều sheet trong Excel sang PDF và CSV một cách dễ dàng và nhanh chóng.

Cách Chuyển Đổi 1 File Excel Sang PDF

Trước khi bắt đầu, hãy làm quen với tính năng “Save As” trong Excel. Đây là tính năng cho phép bạn lưu một bảng tính đang hoạt động dưới dạng các định dạng khác nhau như PDF, CSV, v.v. Để chuyển đổi một file Excel sang định dạng PDF, bạn làm như sau:

Bước 1. Mở file Excel mà bạn muốn chuyển đổi và nhấp vào File (hoặc nút Office) > Save As.

Chọn File

Bước 2. Trong hộp thoại “Save As”, bạn cần:

• Chọn một thư mục để lưu file PDF.
• Đặt tên cho file PDF trong ô “File name”.
• Nhấp vào ô “Save as type” và chọn “PDF (*.pdf)” từ danh sách thả xuống.
• Nhấp vào nút “Options”.

Bước 3. Trong hộp thoại “Options”, bạn hãy check vào tùy chọn “All” và “Entire workbook”, sau đó nhấp vào nút “OK”.

Bước 4. Nhấp vào nút “Save” trong hộp thoại “Save As”.

Vậy là bảng tính Excel của bạn đã được lưu dưới dạng file PDF và được lưu trong thư mục đã chọn.

Cách Chuyển Nhiều File Excel Sang PDF

Nếu bạn muốn chuyển đổi nhiều file Excel sang định dạng PDF cùng một lúc, bạn có thể sử dụng một số phím tắt hoặc macro trong Excel. Dưới đây là cách chuyển đổi nhiều file Excel sang PDF bằng macro:

Bước 1: Khởi động Microsoft Excel và nhấn tổ hợp phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Trong cửa sổ Visual Basic for Applications, chọn Insert > Module để tạo một Module mới.

Bước 3: Sao chép mã VBA dưới đây và dán vào cửa sổ Module mới đã tạo:

Sub ConvertExcelToPDF()
    Dim SourceFilePath As String
    Dim SourceWorkbook As Workbook
    Dim ws As Worksheet

    ' Set the source file path
    SourceFilePath = "C:PathToSourceFolder"

    ' Open the source workbook
    Set SourceWorkbook = Workbooks.Open(SourceFilePath)

    ' Make sure the source workbook contains at least one worksheet
    If SourceWorkbook.Worksheets.Count > 0 Then
        ' Change the worksheet name as needed
        Set ws = SourceWorkbook.Worksheets(1)

        ' Create PDF format from the worksheet and save it in the same folder
        ws.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=Left(SourceFilePath, Len(SourceFilePath) - 5) & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    End If

    ' Close the source workbook without saving changes
    SourceWorkbook.Close SaveChanges:=False

    MsgBox "Conversion to PDF completed."
End Sub

Bước 4: Bạn có thể chạy mã bằng cách nhấn F5 hoặc chọn “Run” từ menu “Run”.

Tệp PDF mới sẽ được lưu vào cùng thư mục với tệp gốc. Bạn có thể sử dụng File Explorer để tìm tệp PDF đã tạo.

Lưu ý khi xuất file Excel sang PDF hàng loạt bằng VBA: Bạn cần thay đổi giá trị của biến SourceFilePath để chỉ định thư mục chứa các file Excel bạn muốn chuyển đổi thành file PDF.

Kết Luận

Trên đây là cách chuyển đổi nhiều sheet trong Excel sang định dạng PDF và CSV. Hy vọng qua bài viết này, bạn đã hiểu cách thực hiện và có thể áp dụng vào công việc của mình. Đừng quên ghé thăm website Văn Phòng Tuyển Sinh Y Dược Hà Nội để cập nhật những kiến thức mới nhất về lĩnh vực y dược và tuyển sinh. Chúc bạn thành công và hẹn gặp lại trong những bài viết tiếp theo!