EXCEL VBA 将工作薄内所有工作表存为一个PDF文件

可以通过录制宏得到一段代码，稍加修改后即可使用，如下图示：

代码：

Option Explicit

Sub EtoPDFs()

'

'另存为PDF

' '全选工作表

Sheets.Select?

'另存为PDF文件‘ThisWorkbook.Name’部分因为不知道你的工作簿后缀是什么，否则可以通过mid或者left函数修改保存的名字

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf", Quality _

:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=True?

End Sub