- 首先,打开Excel,然后按下
Alt + F11
打开VBA编辑器。 - 在VBA编辑器中,点击
插入
->模块
,创建一个新的模块。 - 在新模块中,复制并粘贴以下VBA代码:
vbscript
Sub ExportEachSheetToPDF()
Dim ws As Worksheet
Dim pdfFolder As String
Dim pdfName As String
' 设置PDF保存的文件夹路径
pdfFolder = "C:\Your\Desired\Folder\"
Application.ScreenUpdating = False ' 关闭屏幕更新以加快宏的执行速度
Application.DisplayAlerts = False ' 禁用弹窗提示
For Each ws In ThisWorkbook.Worksheets
pdfName = Replace(ws.Name, " ", "_") ' 替换工作表名称中的空格
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFolder & pdfName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next ws
Application.ScreenUpdating = True ' 恢复屏幕更新
Application.DisplayAlerts = True ' 恢复弹窗提示
MsgBox "所有工作表已导出为PDF文件。"
End Sub
- 修改
pdfFolder
变量的值,设置你希望保存PDF文件的路径。 - 运行这个宏。你可以在VBA编辑器中按
F5
键,或者在Excel中通过快捷键Alt + F8
,然后选择ConvertToPDF
并运行。
请注意,这个脚本会将每个工作表导出为一个单独的PDF文件,并且文件名将基于工作表的名称。确保你有权限写入指定的路径,并且Excel具有将文件导出为PDF的功能(这通常需要安装Adobe Acrobat或者使用Excel的内置PDF导出功能)。