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导出功能)。

相关推荐
FreeBuf_6 小时前
微软365 PDF导出功能存在本地文件包含漏洞,可泄露敏感服务器数据
服务器·microsoft·pdf
星沙丘秋11 小时前
Kettle导入Excel文件进数据库时,数值发生错误的一种原因
excel
Tomorrow'sThinker13 小时前
✍️ Python 批量设置 Word 文档多级字体样式(标题/正文/名称/小节)
python·自动化·word·excel
熊出没15 小时前
Vue前端导出页面为PDF文件
前端·vue.js·pdf
大虫小呓16 小时前
50个Python处理Excel示例代码,覆盖95%日常使用场景-全网最全
python·excel
最懒的菜鸟16 小时前
MinerU将PDF转成md文件,并分拣图片
人工智能·pdf
禁默18 小时前
Linux Vim 编辑器详解:从入门到进阶(含图示+插件推荐)
linux·vim·excel
开开心心_Every1 天前
便捷的电脑自动关机辅助工具
开发语言·人工智能·pdf·c#·电脑·音视频·sublime text
用什么都重名1 天前
MinerU:高效智能PDF文档解析工具完全指南
人工智能·python·pdf·mineru·makedown
Xiaouuuuua1 天前
一个简单的脚本,让pdf开启夜间模式
java·前端·pdf