Lissa的工作簿包含多个工作表。她想为这些工作表创建单独的PDF（每个工作表一个PDF）

基于工作表名称的PDF名称。她想知道在Excel中是否有办法做到这一点。

有多种方法，具体取决于您要花费多少时间。

如果这是“一次性”的情况，则可以考虑仅手动打印每个工作表。或者，您可以将每个工作表复制到其自己的工作簿中，然后将每个工作簿打印为PDF。

但是，这些都是手动密集型的。 （这就是为什么我说它们可能只适用于“一次性”事件的原因。）如果您想要一些更自动的功能，则需要使用宏来处理PDF文件。这是一个简短的宏示例，它将为您创建PDF：

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

请注意，存储在sFolder变量中的路径设置为与活动工作簿关联的任何路径。 （如果尚未保存活动工作簿，则宏将无法正常运行。）此路径是保存PDF文件的文件夹。如果要将它们保存在其他位置，只需更改分配给sFolder变量的值。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本提示（13570）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。