在Excel中，你可以使用VBA（Visual Basic for Applications）编写宏来自动化将指定工作表另存为PDF文件的过程。下面是一个示例宏，展示了如何执行这一任务：

步骤 1：打开VBA编辑器在Excel中，按 Alt + F11 打开VBA编辑器。在VBA编辑器中，右键点击工程资源管理器中的 VBAProject (YourWorkbookName.xls)，选择 插入 > 模块，这样就可以在新模块中编写代码了。步骤 2：编写VBA代码

在打开的模块窗口中，复制并粘贴以下代码：

Sub SaveAllWorksheetsAsPDF() Dim ws As Worksheet Dim savePath As String Dim pdfName As String ' 设置PDF文件保存的基础路径 savePath = "C:\path\to\your\folder\" '请更改为你希望保存PDF的路径 ' 遍历所有工作表 For Each ws In ThisWorkbook.Sheets ' 为每个PDF文件设置文件名（使用工作表名称） pdfName = ws.Name & ".pdf" ' 导出为PDF ws.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=savePath & pdfName, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False '如果你不想打开PDF，设置为False Next ws MsgBox "所有工作表已成功保存为PDF文件在: " & savePath, vbInformation, "操作完成"End Sub

在上述代码中，savePath变量需要设置为你希望保存PDF文件的基础路径。代码会自动为每个PDF文件使用对应工作表的名称作为文件名。

步骤 3: 运行VBA宏

保存代码后，你可以通过以下方式运行宏：

按 F5 键，或在VBA编辑器菜单中选择 运行 > 运行子程序/用户窗体。如果你想要从Excel直接运行这个宏，可以将这个宏分配给工作表中的按钮或使用快捷键。

执行此宏后，工作簿中的每个工作表将被另存为单独的PDF文件，并保存在指定的路径下。如果你设置OpenAfterPublish:=False，则不会在保存后自动打开PDF文件。