在Excel中，VBA（Visual Basic for Applications）是一种强大的编程工具，可以让我们自动化许多重复性的任务，例如在本例中的“Excel-VBA应用：循环将多个工作表另存为PDF的宏代码”。这个宏功能允许用户批量将工作簿中的所有工作表转换成PDF格式，并且可以根据需求设置PDF文件的名称，这极大提高了工作效率。
我们需要了解VBA的基本结构。在VBA中，我们使用Sub过程来定义一个可执行的函数，类似于其他编程语言中的函数。在本案例中，我们将创建一个名为SaveSheetsAsPDF的Sub过程，用于处理这个任务。
以下是实现此功能的VBA代码示例：
```vba
Sub SaveSheetsAsPDF()
Dim ws As Worksheet
Dim savePath As String
Dim fileName As String
' 定义保存路径
savePath = "C:\Your\Desired\Path\" ' 替换为你希望保存PDF的路径
' 获取指定单元格的值作为文件名
fileName = ThisWorkbook.Sheets("Sheet1").Range("A1").Value ' 修改"A1"为实际指定的单元格
' 循环遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
' 拼接完整的PDF文件名
ws.Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath & fileName & "_" & ws.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
' 删除临时复制的工作表
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Next ws
End Sub
```
这段代码首先设定PDF的保存路径，然后读取指定单元格（如"A1"）的值作为PDF文件的基础名称。接着，它会遍历工作簿中的每个工作表，复制当前工作表，将其保存为PDF，并使用当前工作表的名字作为文件名的一部分。删除临时复制的工作表，以便下一次循环。
执行此宏时，确保工作簿中所有需要转换的工作表都已打开，并且在指定单元格（如"A1"）中输入了你希望作为PDF文件基础名称的文本。如果需要，你可以调整保存路径、文件名单元格和文件质量等参数以满足具体需求。
通过这样的VBA宏，我们可以轻松地批量处理Excel工作表的转换，而无需手动操作，这对于处理大量数据或需要定期生成报告的情况非常有用。在实际应用中，你可以根据实际工作簿的结构和需求对代码进行适当的修改和优化，以达到最佳效果。
另存为PDF.rar （1个子文件） 
另存为PDF.xlsm 19KB
