可通过VBA脚本批量导出Excel各工作表为独立PDF：一、基础循环导出；二、增强版自动建文件夹并清理非法字符；三、交互式自选路径；四、免激活后台静默导出。
如果您希望将Excel工作簿中的所有工作表分别导出为独立的PDF文件，手动逐个另存为效率低下且易出错。以下是通过VBA脚本实现批量循环导出PDF的多种方法：
一、使用基础VBA循环导出每个工作表为单独PDF
该方法通过遍历当前工作簿中所有可见工作表，逐一激活并导出为PDF，文件名默认采用工作表名称，保存至当前工作簿所在路径。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中，右键点击当前工作簿名称，选择“插入”→“模块”。
3、在新建模块窗口中粘贴以下代码：
Sub ExportAllSheetsToPDF()
Dim ws As Worksheet
Dim savePath As String
savePath = ThisWorkbook.Path & "\"
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
ws.ExportAsFixedFormat Type:=xlTypePDF, FileName:=savePath & ws.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next ws
End Sub
4、关闭VBA编辑器，返回Excel界面，按 Alt + F8 调出宏对话框，选中“ExportAllSheetsToPDF”，点击“运行”。
二、增强版VBA：自动创建子文件夹并避免文件名非法字符
该方法在导出前自动创建名为“PDF_Export”的子文件夹，并对工作表名称中的斜杠、星号、问号等Windows非法字符进行替换，防止导出失败。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub ExportAllSheetsToPDF_Safe()
Dim ws As Worksheet
Dim savePath As String
Dim pdfFolder As String
Dim cleanName As String
pdfFolder = "PDF_Export"
savePath = ThisWorkbook.Path & "\" & pdfFolder & "\"
If Dir(savePath, vbDirectory) = "" Then MkDir savePath
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
cleanName = Replace(ws.Name, "\", "_")
cleanName = Replace(cleanName, "/", "_")
cleanName = Replace(cleanName, ":", "_")
cleanName = Replace(cleanName, "*", "_")
cleanName = Replace(cleanName, "?", "_")
cleanName = Replace(cleanName, """", "_")
cleanName = Replace(cleanName, " cleanName = Replace(cleanName, ">", "_")
cleanName = Replace(cleanName, "|", "_")
ws.ExportAsFixedFormat Type:=xlTypePDF, FileName:=savePath & cleanName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next ws
End Sub
2、运行宏前确保工作簿已保存（否则ThisWorkbook.Path可能为空）。
3、运行后检查当前目录下是否生成了“PDF_Export”文件夹及对应PDF文件。
三、交互式VBA：弹出文件夹选择对话框指定导出路径
该方法使用系统文件夹选择器，允许用户在运行时自由指定PDF保存位置，提升灵活性与安全性，避免覆盖误操作。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub ExportAllSheetsToPDF_CustomPath()
Dim ws As Worksheet
Dim savePath As String
Dim folderPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择PDF保存文件夹"
If .Show -1 Then Exit Sub
folderPath = .SelectedItems(1)
End With
If Right(folderPath, 1) "\" Then folderPath = folderPath & "\"
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
ws.ExportAsFixedFormat Type:=xlTypePDF, FileName:=folderPath & Replace(ws.Name, ":", "_") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next ws
End Sub
2、运行宏后将弹出标准Windows文件夹选择窗口，用户需手动选取目标文件夹。
3、确认选择后，脚本自动执行导出，所有PDF将保存至所选路径。
四、免激活方式导出：不切换工作表焦点，保持当前视图稳定
传统方法中频繁激活工作表可能导致屏幕闪烁或当前操作中断。本方法通过直接引用工作表对象导出，全程不改变活动工作表，适合后台静默批量处理。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub ExportAllSheetsToPDF_NoActivate()
Dim ws As Worksheet
Dim savePath As String
savePath = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
ws.Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:=savePath & Replace(ws.Name, ":", "_") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close SaveChanges:=False
End If
Next ws
Application.ScreenUpdating = True
End Sub
2、关键点：Application.ScreenUpdating = False 关闭屏幕刷新，防止视觉干扰。
3、该方法通过临时复制工作表为新工作簿再导出，规避了“激活”依赖，导出过程完全后台运行。
