当前位置:首页 > 常见问题
    如何将含有多个Sheet的通用Excel模板,导出生成为一个PDF文件

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


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


      微信图片_20220530170456.png


      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随便新建一个按钮,然后指定宏即可



    [返回列表] [ 发布:2022-5-30 17:11:46 ] [ 浏览: ] [ 字体: | ]
    下一篇:暂无信息!
  • 根据企业自身需求,量身定制的管理系统更贴合企业管理现状,功能随需而变,从根源上摆脱软件公司的牵制。 自主开发

    根据企业自身需求,量身定制的管理系统更贴合企业管理现状,功能随需而变,从根源上摆脱软件公司的牵制。

  • 通用Excel采用全图文开发界面,无编程无代码,设置表间公式所见即所得,分分钟完成定义表间数据调用。 表间公式

    通用Excel采用全图文开发界面,无编程无代码,设置表间公式所见即所得,分分钟完成定义表间数据调用。

  • 建立或修改流程任务,只需要画个线条即可,其它的复杂程序设置就让智能化的通用Excel来自动完成。 流程管控

    建立或修改流程任务,只需要画个线条即可,其它的复杂程序设置就让智能化的通用Excel来自动完成。

  • 权限设置更加简单便捷,集合了填报、查看数据、修改数据、打印、删除、锁定及解锁等常用权限管理。 权限设置

    权限设置更加简单便捷,集合了填报、查看数据、修改数据、打印、删除、锁定及解锁等常用权限管理。

  • 互和提供全方位的技术支持,有解决不了问题,远程协助搞定,让您在开发过程中无后顾之忧。 技术支持

    互和科技提供全方位的技术支持,有解决不了问题,远程协助搞定,让您在开发过程中无后顾之忧。

网站首页 | 网站地图 | 客服邮箱:kf@sh-huhe.com

上海互和信息科技有限公司 版权所有 Copyright © HUHE. All Rights Reserved.

沪ICP备14023721号

扫一扫,关注“互和科技”微信公众号
互和科技微信公众号