Bỏ qua nội dung chính

Làm cách nào để chuyển đổi nhiều sổ làm việc hoặc trang tính sang tệp PDF cùng một lúc trong Excel?

Đôi khi, bạn cần chuyển đổi tệp Excel của mình sang tệp PDF để người khác không thể sửa đổi chúng. Trong Excel, chúng ta có thể lưu tệp Excel dưới dạng tệp PDF bằng cách sử dụng chức năng Save As. Nhưng làm thế nào để bạn chuyển đổi nhiều sổ làm việc sang tệp PDF cùng một lúc trong Excel?


Chuyển đổi nhiều sổ làm việc sang tệp PDF với chức năng Save As từng cái một

Thông thường, tính năng Lưu dưới dạng trong Excel có thể giúp bạn lưu toàn bộ sổ làm việc thành tệp PDF, vui lòng thực hiện như sau:

1. Khởi chạy sổ làm việc mà bạn muốn chuyển đổi sang định dạng PDF.

2. Nhấp chuột Tập tin > Save As, và trong Save As hộp thoại, vui lòng chỉ định một thư mục để lưu tệp mới, sau đó chọn PDF từ Save as type danh sách thả xuống, sau đó bấm Các lựa chọn nút, xem ảnh chụp màn hình:

3. Sau đó, trong cửa sổ bật ra Các lựa chọn hộp thoại, kiểm tra Toàn bộ bảng tính, xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK > Lưu, toàn bộ sổ làm việc này đã được lưu dưới dạng tệp PDF.

Lời khuyên: Nếu bạn có nhiều sổ làm việc cần được chuyển đổi, vui lòng áp dụng các bước trên để lưu từng sổ làm việc thành tệp PDF.

Chuyển đổi nhiều sổ làm việc sang tệp PDF với mã VBA cùng một lúc

Nếu có hàng trăm tệp Excel cần được chuyển đổi, phương pháp trên sẽ khá rắc rối, ở đây, tôi sẽ nói về mã VBA để chuyển đổi nhiều sổ làm việc sang tệp PDF cùng một lúc, vui lòng thực hiện theo các bước sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Chuyển đổi nhiều sổ làm việc sang tệp PDF cùng một lúc

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. Sau đó nhấn F5 để chạy mã này và một cửa sổ sẽ được hiển thị, vui lòng chọn một thư mục chứa các sổ làm việc mà bạn muốn chuyển đổi, xem ảnh chụp màn hình:

4. Sau đó nhấp vào OK, một cửa sổ khác hiện ra, vui lòng chọn đường dẫn thư mục mà bạn muốn xuất các tệp PDF mới, xem ảnh chụp màn hình:

5. Và sau đó, leo lên OK, sau khi kết thúc quá trình chuyển đổi, bạn có thể vào thư mục được chỉ định để xem trước kết quả chuyển đổi, xem ảnh chụp màn hình:


Chuyển đổi nhiều sổ làm việc sang tệp PDF với một tính năng mạnh mẽ

Nếu bạn có Kutools cho Excel, Với khả Công cụ chuyển đổi định dạng tiện ích, bạn có thể nhanh chóng chuyển đổi nhiều sổ làm việc sang tệp PDF cùng một lúc.

Lời khuyên:Để áp dụng điều này Công cụ chuyển đổi định dạng , trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Nhấp chuột Kutools Plus > Bảng tính > Công cụ chuyển đổi định dạng, xem ảnh chụp màn hình:

2. Và một hộp nhắc xuất hiện để nhắc bạn phải đóng sổ làm việc mà bạn muốn chuyển đổi.

3. Nhấp chuột OK, sau đó, trong Công cụ chuyển đổi định dạng tệp , chỉ định các tùy chọn sau:

  • Bên dưới Chuyển đổi loại danh sách thả xuống, chọn Sổ làm việc Excel sang PDF;
  • Sau đó nhấn vào Thêm để thêm tệp Excel mà bạn muốn chuyển đổi, bạn có thể thêm sổ làm việc từ đĩa trình biên dịch hoặc OneDrive khi cần; 

4. Sau khi chèn các sổ làm việc mà bạn muốn chuyển đổi, vẫn trong Công cụ chuyển đổi định dạng tệp hộp thoại, vui lòng nhấp vào để chọn một đường dẫn thư mục để xuất các tệp đã chuyển đổi, sau đó chỉ định một số thao tác bạn cần ở cuối hộp thoại, xem ảnh chụp màn hình:

Chú ý: Trong hộp thoại trên:
  • Nếu các sổ làm việc trong thư mục con cũng cần được chuyển đổi, vui lòng kiểm tra Bao gồm các thư mục con khi thêm các thư mục hộp kiểm tra;
  • Nếu bạn muốn xóa các tệp gốc sau khi chuyển đổi, vui lòng kiểm tra Xóa các tệp nguồn sau khi chuyển đổi cái hộp;
  • Nếu bạn muốn giữ ngày sửa đổi của tệp gốc, vui lòng kiểm tra Giữ ngày sửa đổi của tệp gốc cái hộp;
  • Cấu trúc thư mục của tệp có thể được giữ lại bằng cách kiểm tra Cấu trúc thư mục của tệp được giữ nguyên khi chuyển đổi cái hộp;

5. Sau đó nhấn vào OK để bắt đầu chuyển đổi, khi tất cả các tệp Excel được chỉ định đã được chuyển đổi thành tệp PDF, bạn có thể chuyển đến thư mục được chỉ định để xem trước kết quả được chuyển đổi, xem ảnh chụp màn hình:


Chuyển đổi nhiều trang tính từ sổ làm việc để tách các tệp PDF bằng mã VBA

Trong một số trường hợp, bạn có thể muốn chuyển đổi từng trang tính trong sổ làm việc thành các tệp PDF riêng biệt, nếu có nhiều trang tính trong sổ làm việc của bạn, mã VBA dưới đây có thể giúp bạn lưu từng trang tính dưới dạng tệp PDF cùng một lúc.

1. Mở một sổ làm việc mà bạn muốn chuyển đổi, sau đó nhấn và giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Chuyển đổi nhiều trang tính từ sổ làm việc thành các tệp PDF riêng biệt

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Sau đó nhấn F5 để chạy mã này và một cửa sổ hiện ra, vui lòng chọn đường dẫn thư mục để định vị các tệp PDF đã chuyển đổi, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OK , tất cả các trang tính trong sổ làm việc hiện tại đã được chuyển đổi tệp PDF riêng biệt, xem ảnh chụp màn hình:


Chuyển đổi nhiều trang tính từ sổ làm việc thành các tệp PDF riêng biệt với một tính năng tiện dụng

Kutools cho Excel cũng hỗ trợ một tính năng hữu ích - Chia sổ làm việc, với tính năng này, bạn có thể lưu nhiều trang tính trong sổ làm việc để tách tệp Excel, tệp Txt, tệp CSV và tệp PDF khi bạn cần.

Lời khuyên:Để áp dụng điều này Chia sổ làm việc , trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Mở sổ làm việc mà bạn muốn lưu từng trang tính dưới dạng tệp PDF, sau đó bấm Kutool Plus > Bảng tính > Chia sổ làm việc, xem ảnh chụp màn hình:

2. Trong Chia sổ làm việc hộp thoại, chọn trang tính mà bạn muốn lưu, sau đó chọn PDF (* .pdf) từ Save as type danh sách thả xuống, sau đó bấm chẻ nút, trong Chọn thư mục cửa sổ, chỉ định một thư mục để đặt các tệp đã chuyển đổi, xem ảnh chụp màn hình:

3. Và sau đó, tất cả các trang tính được chọn trong sổ làm việc hiện tại đã được lưu vào tệp PDF riêng lẻ, xem ảnh chụp màn hình:


Các bài viết tương đối hơn:

  • Chuyển đổi nhiều tệp Xls sang tệp Xlsx trong Excel
  • Để chuyển đổi tệp xls Excel cũ sang tệp xlsx mới, bạn có thể áp dụng tính năng Lưu dưới dạng trong Excel, nhưng nếu có nhiều tệp xls cần được chuyển đổi, làm cách nào để giải quyết công việc này một cách nhanh chóng và dễ dàng?
  • Chỉ lưu tất cả các trang tính làm giá trị
  • Nếu bạn có một sổ làm việc chứa nhiều công thức, bây giờ, bạn cần phân phối tệp này cho những người dùng khác, bạn không muốn hiển thị các công thức mà chỉ hiển thị các giá trị. Thông thường, chúng ta có thể nhanh chóng lưu trang tính dưới dạng giá trị bằng cách chỉ sao chép và dán dữ liệu dưới dạng giá trị. Nhưng, làm thế nào bạn có thể lưu tất cả các trang tính dưới dạng giá trị mà không cần sao chép và dán từng bảng một?
  • Nút lệnh để lưu trang tính hoạt động dưới dạng tệp PDF
  • Khi làm việc trong Microsoft Excel, bạn có thể gặp sự cố khi lưu trang tính đang hoạt động dưới dạng tệp PDF. Trong bài viết này, bạn có thể tìm hiểu cách lưu trang tính đang hoạt động dưới dạng tệp PDF bằng mã VBA thông qua Nút lệnh. Và nếu bạn cũng muốn lưu một phạm vi hoặc từng trang tính trong sổ làm việc đang hoạt động dưới dạng tệp PDF riêng lẻ, bài viết này cũng có thể giúp bạn.
  • Tách một bảng lớn thành nhiều bảng nhỏ
  • Nếu bạn có một trang tính lớn chứa nhiều cột và hàng trăm hoặc hàng nghìn hàng dữ liệu, bây giờ, bạn muốn chia bảng lớn này thành nhiều bảng nhỏ dựa trên giá trị cột hoặc số hàng để nhận được kết quả sau. Bạn có thể giải quyết công việc này như thế nào trong Excel?
  • Tách sổ làm việc để tách các tệp Excel
  • Bạn có thể cần phải chia một sổ làm việc lớn để tách các tệp Excel với việc lưu từng trang của sổ làm việc dưới dạng một tệp Excel riêng lẻ. Ví dụ: bạn có thể chia sổ làm việc thành nhiều tệp Excel riêng lẻ và sau đó giao từng tệp cho người khác xử lý. Bằng cách đó, bạn có thể nhờ một số người xử lý dữ liệu cụ thể và giữ an toàn cho dữ liệu của bạn. Bài viết này sẽ giới thiệu các cách chia sổ làm việc lớn để tách các tệp Excel dựa trên mỗi trang tính.

Công cụ năng suất văn phòng tốt nhất

Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

tab kte 201905


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations