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
- Chuyển đổi nhiều sổ làm việc sang tệp PDF với mã VBA cùng một lúc
- 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ẽ
- 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
- 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
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.
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.
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:
- 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.
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
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 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!