可以利用VBA实现,Alt+F11,复制如下代码,F5执行即可:Sub 按工作表生成PDF文件()Dim Pa$, Sh As WorksheetPa = ThisWorkbook.Path & "\"For Each Sh In SheetsSh.ExportAsFixedFormat xlTypePDF, pa & Sh.Name & ".pdf", 0, True, FalseNextEnd Sub