VBA 实现EXCEl的sheet转换成PDF

  1. 首先,打开Excel,然后按下 Alt + F11 打开VBA编辑器。
  2. 在VBA编辑器中,点击 插入 -> 模块,创建一个新的模块。
  3. 在新模块中,复制并粘贴以下VBA代码:
vbscript 复制代码
Sub ExportEachSheetToPDF()
    Dim ws As Worksheet
    Dim pdfFolder As String
    Dim pdfName As String
    
    ' 设置PDF保存的文件夹路径
    pdfFolder = "C:\Your\Desired\Folder\"
    
    Application.ScreenUpdating = False ' 关闭屏幕更新以加快宏的执行速度
    Application.DisplayAlerts = False ' 禁用弹窗提示
    
    For Each ws In ThisWorkbook.Worksheets
        pdfName = Replace(ws.Name, " ", "_") ' 替换工作表名称中的空格
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFolder & pdfName & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
           OpenAfterPublish:=False
    Next ws
    
    Application.ScreenUpdating = True ' 恢复屏幕更新
    Application.DisplayAlerts = True ' 恢复弹窗提示
    
    MsgBox "所有工作表已导出为PDF文件。"
End Sub
  1. 修改 pdfFolder变量的值,设置你希望保存PDF文件的路径。
  2. 运行这个宏。你可以在VBA编辑器中按 F5 键,或者在Excel中通过快捷键 Alt + F8,然后选择 ConvertToPDF 并运行。

请注意,这个脚本会将每个工作表导出为一个单独的PDF文件,并且文件名将基于工作表的名称。确保你有权限写入指定的路径,并且Excel具有将文件导出为PDF的功能(这通常需要安装Adobe Acrobat或者使用Excel的内置PDF导出功能)。

相关推荐
CodeCraft Studio42 分钟前
【实用技能】使用 TX Text Control 创建带有嵌入式附件的 PDF 文档
pdf·asp.net·.net
小小大侠客3 小时前
IText创建加盖公章的pdf文件并生成压缩文件
java·pdf·itext
DevOpenClub8 小时前
PDF 转 HTML API 数据接口
pdf
Morantkk9 小时前
Word和Excel使用有感
word·excel
躺平的花卷10 小时前
Python爬虫案例八:抓取597招聘网信息并用xlutils进行excel数据的保存
爬虫·excel
爱编程的小生10 小时前
Easyexcel(2-文件读取)
java·excel
程序员如山石10 小时前
Excel的图表使用和导出准备
excel
zhy81030212 小时前
.net6 使用 FreeSpire.XLS 实现 excel 转 pdf - docker 部署
pdf·.net·excel
傻啦嘿哟12 小时前
如何使用 Python 开发一个简单的文本数据转换为 Excel 工具
开发语言·python·excel
慧都小妮子13 小时前
Spire.PDF for .NET【页面设置】演示:打开 PDF 时自动显示书签或缩略图
java·pdf·.net