EXCEL多个Sheet导出为PDF,如果让每个sheet的名称在pdf中显示?

2025-04-05 15:03:51
推荐回答(1个)
回答1:

可以利用VBA实现,Alt+F11,复制如下代码,F5执行即可:

Sub 按工作表生成PDF文件()
Dim Pa$, Sh As Worksheet
Pa = ThisWorkbook.Path & "\"
For Each Sh In Sheets
Sh.ExportAsFixedFormat xlTypePDF, pa & Sh.Name & ".pdf", 0, True, False
Next
End Sub