如何将含有多个Sheet的通用Excel模板，导出生成为一个PDF文件

如何将含有多个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随便新建一个按钮，然后指定宏即可

上一篇：在Excel里插入的图片变模糊，点了Excel图片属性中的“重设原始尺寸”也不行

下一篇：在通用Excel系统报表中上传大文件时，提示“HTTP/1.1 404 Not Found”，但是附件字段并没有设置限制附件大小