ExcelVBA把当前工作表导出为PDF文档

我们先问问Kimi

|---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
| Excel导出为PDF的方法有多种,以下是一些常见的方法: 1. 1 使用Excel软件的内置功能: * 打开Excel文件,点击"文件"菜单。 * 选择"另存为",在"保存类型"中选择"PDF"。 * 设置保存路径和文件名,点击"保存"。 2 通过Excel的"输出为PDF"功能: * 在Excel中,点击"文件"菜单下的"输出为PDF"。 * 选择"当前工作表"或"整个工作簿"。 * 指定保存路径,点击"开始输出"。 3 使用"创建PDF/XPS"选项: * 在Excel中,点击"文件"菜单中的"导出"。 * 选择"创建PDF/XPS",在弹出的对话框中设置保存路径和文件名。 * 如果需要将整个工作簿保存为PDF,点击"选项...",选择"整个工作簿",然后点击"确定"并发布。 7 在Office桌面应用中保存或转换为PDF或XPS: * 使用Microsoft Office程序,可以另存或转换文件为PDF格式。 56 使用在线转换服务: * 将Excel文件拖放到在线转换工具的指定区域,或通过"选择文件"按钮上传。 * 根据提示操作,转换完成后下载PDF文件。 4 使用编程语言如Java进行转换: * 通过编程方式,可以使用特定的库(如iText)来动态生成PDF,并将数据插入到PDF模板中。 每种方法都有其适用场景,可以根据个人需求和操作习惯选择最合适的一种。例如,如果需要频繁进行转换,可能更倾向于使用编程方式自动化处理;如果只是偶尔转换单个文件,使用Excel内置功能或在线服务可能更为便捷。 |

综上,我们还是利用ExcelVBA的方法是最好的方法:

也可以后期制作在VSTO插件中

下面是完成的代码

功能:

1.代码自动检测是否存在打印区域,若有,导出打印区域,若无,导出整表

2.导出的文件保存在原文件的根目录中,命名为:原文件_out.pdf

properties 复制代码
Sub ExportActiveSheetToPDF()
    Dim ws As Worksheet
    ' 指定要导出的工作表,这里假设是要导出活动工作表
    Set ws = ActiveSheet
    ' 获取并设置PDF文件名
    Dim filePath As String
    filePath = ThisWorkbook.path & "\" & ws.Name & "_out.pdf"
    ' 使用工作表的PrintArea属性获取打印区域
    With ws
        .pageSetup.CenterFooter = "第 &P 页 / 共 &N 页"
        If .pageSetup.printArea <> "" Then
            ' 如果设置了打印区域,则导出该区域
            .ExportAsFixedFormat Type:=xlTypePDF, _
                    Filename:=filePath, _
                    OpenAfterPublish:=False, _
                    IgnorePrintAreas:=False
        Else
            ' 如果未设置打印区域,则导出整个工作表
            .ExportAsFixedFormat Type:=xlTypePDF, _
                    Filename:=filePath, _
                    OpenAfterPublish:=False
        End If
    End With
    MsgBox "PDF已成功创建并保存到:" & filePath
End Sub

关注,有更多文章

相关推荐
課代表6 小时前
对 FormCalc 语言支持较好的 PDF 编辑软件综述
adobe·pdf·表单·formcalc
一城烟雨_11 小时前
vue3 实现将html内容导出为图片、pdf和word
前端·javascript·vue.js·pdf
witton1 天前
记一次pdf转Word的技术经历
pdf·乱码·word·pymupdf·mupdf·mupdf.js·winansiencoding
马武寨山的猴子2 天前
【MinerU】:一款将PDF转化为机器可读格式的工具——RAG加强(Docker版本)
人工智能·docker·容器·pdf·rag
萧鼎2 天前
PDFMathTranslate:让数学公式在PDF翻译中不再痛苦
python·pdf
会功夫的李白2 天前
PDF嵌入隐藏的文字
java·pdf·itext
陌殇殇3 天前
Java使用IText7动态生成带审批文本框的PDF文档
java·pdf
Ven%3 天前
VsCode如何使用默认程序打开word Excel pdf等文件
ide·vscode·pdf·编辑器
软件工程小施同学3 天前
计算机学报 2024年 区块链论文 录用汇总 附pdf下载
pdf·区块链
Sherlock Ma4 天前
PDFMathTranslate:基于LLM的PDF文档翻译及双语对照的工具【使用教程】
人工智能·pytorch·语言模型·pdf·大模型·机器翻译·deepseek