VBA将当前工作簿所有工作表分别另存为以工作表名称命名的PDF文件
时间: 2024-01-03 20:05:03
浏览: 178
以下是VBA代码,可以将当前工作簿中的每个工作表分别另存为以工作表名称命名的PDF文件:
Sub SaveSheetsAsPDFs()
Dim ws As Worksheet
Dim savePath As String
Dim fileName As String
'获取保存路径
savePath = Application.ActiveWorkbook.Path & "\"
'禁用屏幕刷新,加快处理速度
Application.ScreenUpdating = False
'循环处理每个工作表
For Each ws In ActiveWorkbook.Worksheets
'生成文件名
fileName = ws.Name & ".pdf"
'保存PDF文件
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath & fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'提示进度
Debug.Print "Saved " & fileName
Next ws
'启用屏幕刷
```