Note: The other languages of the website are Google-translated. Back to English

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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
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!
officetab dưới cùng
Nhận xét (5)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang chỉnh sửa và cập nhật dữ liệu của mình trong pdf explorer và tôi đã có dữ liệu của mình trong trang tính excel nên bây giờ tôi muốn xuất nhật ký excel của mình sang pdf explorer thì làm thế nào
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này là hoàn hảo cho những gì tôi đang tìm kiếm. Cảm ơn vì những chia sẻ. Tôi đã từng chuyển đổi tệp excel sang tệp PDF bằng Acethinker PDF Creator, từng cái một, không quá nhanh, hãy chia sẻ nó ở đây như một giải pháp thay thế.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
vba thực sự tốt và phục vụ tốt mục đích của tôi. nhưng mã này có thể không được thay đổi để tạo pdf từ một trang tính cụ thể cho nhiều tệp excel (giả sử trang tính thứ 3 của tất cả 100 sổ làm việc excel mà tôi có).
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều cho mã này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, điều này có thể là nhiều, nhưng có cách nào để tạo một VBA có thể tách nhiều trang tính trong sổ làm việc thành tệp pdf của riêng chúng và cho mỗi tiêu đề là một văn bản trong một ô nhất định trong trang tính cho mỗi trang không?
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL