Lissa có một sổ làm việc chứa nhiều trang tính. Cô ấy muốn tạo các tệp PDF riêng lẻ cho các trang tính này (một tệp PDF trên mỗi trang tính)

với tên của tệp PDF dựa trên tên của trang tính. Cô ấy tự hỏi nếu có cách nào để làm điều này trong Excel.

Có nhiều cách để làm điều đó, tùy thuộc vào lượng thời gian bạn muốn dành.

Nếu đây là trường hợp “xảy ra một lần”, bạn có thể xem xét chỉ in từng trang tính riêng lẻ theo cách thủ công. Hoặc, bạn có thể sao chép từng trang tính vào sổ làm việc của chính nó và sau đó in từng sổ làm việc sang PDF.

Tuy nhiên, đây là những thủ công khá chuyên sâu. (Đó là lý do tại sao tôi đã nói rằng chúng có thể chỉ tốt cho những lần xuất hiện “một lần”.) Nếu bạn muốn thứ gì đó tự động hơn một chút, bạn sẽ muốn chuyển sang sử dụng macro để thực hiện các tệp PDF. Đây là một ví dụ về macro ngắn sẽ thực hiện việc tạo PDF cho bạn:

Sub CreatePDFs()

Dim wks As Worksheet     Dim sFolder As String     Dim sTemp As String

sFolder = ActiveWorkbook.Path & "\"



sTemp = "Created PDFs for the following worksheets"

For Each wks In ActiveWorkbook.Worksheets         If wks.Visible = xlSheetVisible Then             sTemp = sTemp & vbCrLf & "   * " & wks.Name             wks.ExportAsFixedFormat Type:=xlTypePDF, _               Filename:=sFolder & wks.Name & ".pdf", _               OpenAfterPublish:=False         End If     Next

MsgBox sTemp End Sub

Lưu ý rằng đường dẫn được lưu trữ trong biến sFolder được đặt thành bất kỳ đường dẫn nào được liên kết với sổ làm việc đang hoạt động. (Nếu bạn chưa lưu sổ làm việc đang hoạt động, thì macro sẽ không chạy đúng cách.) Đường dẫn này là thư mục lưu các tệp PDF. Nếu bạn muốn chúng được lưu ở một vị trí khác, chỉ cần thay đổi giá trị được gán cho biến sFolder.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (13570) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365.