如何将含有多个Sheet的通用Excel模板，导出生成为一个PDF文件，还可以定义Sheet的顺序

如下图，点击一个自定义按钮，并加入简单VBA代码，即可实现：

VBA代码如下：

Sub 导出PDF()

       Dim varResult As Variant

       Dim fn As String

       Sheets("Sheet1").Activate '这里的Sheet1和Sheet3是指需要导出的Sheet

   Sheets("Sheet3").Activate '这里的Sheet1和Sheet3是指需要导出的Sheet

   ThisWorkbook.Sheets(Array("Sheet1", "Sheet3")).Select '这里的Sheet1和Sheet3是指需要导出的Sheet

       varResult = Application.GetSaveAsFilename( _

       InitialFileName:=ThisWorkbook.Path & "\" & Range("H4"), _

       FileFilter:="PDF (*.pdf), *.pdf") '这里的H4是导出时定义默认的PDF文件名，也可以无视，导出时，手动填写

       If varResult <> False Then

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

            Filename:=varResult, _

            Quality:=xlQualityStandard, _

            IncludeDocProperties:=True, _

            IgnorePrintAreas:=False, _

            OpenAfterPublish:=True

       End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

直接复制上述代码，在Excel随便新建一个按钮，然后指定宏即可