VBA ExportAsFixedFormat Type:=xlTypePDF如何最快速

时间: 2023-05-17 10:02:55 浏览: 497
地将Excel文件转换为PDF格式? 您可以使用以下代码: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\UserName\Documents\FileName.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 其中,"ActiveSheet"是您要转换的工作表,"Filename"是您要保存的PDF文件的路径和名称。
相关问题

VBA ExportAsFixedFormat Type:=xlTypePDF不显示正在发布

可能是因为代码中缺少了一些必要的参数或者设置不正确导致的。建议检查代码中的参数设置是否正确,比如文件路径、文件名、文件格式等等。同时,也可以尝试使用其他导出方式,比如使用第三方库或者插件来导出PDF文件。

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\UserName\Documents\FileName.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False不提示正在发布

这是一个 VBA 代码,用于将当前活动的 Excel 工作表导出为 PDF 文件,保存在指定的文件路径下。其中,Quality 参数指定导出的 PDF 文件质量,IncludeDocProperties 参数指定是否包含文档属性,IgnorePrintAreas 参数指定是否忽略打印区域,OpenAfterPublish 参数指定是否在导出后打开 PDF 文件。如果设置为 False,则不会提示正在发布。

相关推荐

Label1.Caption = "正在处理:" & strFileName Label1.Refresh 要求对象 Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim objExcel As Object Dim objWorkbook As Object Dim objPDFPrinter As Object Dim strFolderPath As String Dim strFileName As String Dim strPDFFileName As String Dim i As Long ' 设置打印机为 Microsoft Print to PDF Set objPDFPrinter = CreateObject("WScript.Network") objPDFPrinter.SetDefaultPrinter "Microsoft Print to PDF" ' 设置文件夹路径 strFolderPath = Environ("USERPROFILE") & "\Desktop\1\" ' 创建文件系统对象 Set objFSO = CreateObject("Scripting.FileSystemObject") ' 获取文件夹对象 Set objFolder = objFSO.GetFolder(strFolderPath) ' 遍历文件夹下的所有 Excel 文件 For Each objFile In objFolder.Files If objFSO.GetExtensionName(objFile.Path) = "xlsx" Then ' 打开 Excel 文件 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(objFile.Path) ' 构造 PDF 文件名 strFileName = objFSO.GetFileName(objFile.Path) strPDFFileName = objFSO.BuildPath(objFolder.Path, objFSO.GetBaseName(strFileName)) & ".pdf" ' 将文件保存为 PDF 格式 objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPDFFileName ' 关闭 Excel 文件 objWorkbook.Close False objExcel.Quit ' 显示正在处理的文件名 Label1.Caption = "正在处理:" & strFileName Label1.Refresh ' 等待 1 秒,以便显示下一个文件名 Application.Wait Now + TimeValue("0:00:01") End If Next objFile ' 恢复状态栏 Application.StatusBar = False ' 释放对象 Set objFolder = Nothing Set objFile = Nothing Set objExcel = Nothing Set objWorkbook = Nothing Set objPDFPrinter = Nothing Set objFSO = Nothing

最新推荐

recommend-type

setuptools-0.6b3-py2.4.egg

Node.js,简称Node,是一个开源且跨平台的JavaScript运行时环境,它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立,旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎,可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型,这使得它非常适合处理大量并发连接,从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外,Node.js使用了模块化的架构,通过npm(Node package manager,Node包管理器),社区成员可以共享和复用代码,极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展,它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等,因此,开发者可以用JavaScript编写全栈应用程序,这一点大大提高了开发效率和便捷性。 在实践中,许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台,如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能,简化了开发流程,并且能更快地响应市场需求。
recommend-type

Java项目之jspm充电桩综合管理系统(源码 + 说明文档)

Java项目之jspm充电桩综合管理系统(源码 + 说明文档) 2 系统开发环境 4 2.1 Java技术 4 2.2 JSP技术 4 2.3 B/S模式 4 2.4 MyEclipse环境配置 5 2.5 MySQL环境配置 5 2.6 SSM框架 6 3 系统分析 7 3.1 系统可行性分析 7 3.1.1 经济可行性 7 3.1.2 技术可行性 7 3.1.3 运行可行性 7 3.2 系统现状分析 7 3.3 功能需求分析 8 3.4 系统设计规则与运行环境 9 3.5系统流程分析 9 3.5.1操作流程 9 3.5.2添加信息流程 10 3.5.3删除信息流程 11 4 系统设计 12 4.1 系统设计主要功能 12 4.2 数据库设计 13 4.2.1 数据库设计规范 13 4.2.2 E-R图 13 4.2.3 数据表 14 5 系统实现 24 5.1系统功能模块 24 5.2后台功能模块 26 5.2.1管理员功能 26 5.2.2用户功能 30 6 系统测试 32 6.1 功能测试 32 6.2 可用性测试 32 6.3 维护测试 33 6.4 性能测试 33
recommend-type

基于JSP药品进货销售库存管理系统源码.zip

这个是一个JSP药品进货销售库存管理系统,管理员角色包含以下功能:管理员登录,进货管理,销售管理,库存管理,员工管理,客户管理,供应商管理,修改密码等功能。 本项目实现的最终作用是基于JSP药品进货销售库存管理系统 分为1个角色 第1个角色为管理员角色,实现了如下功能: - 供应商管理 - 修改密码 - 员工管理 - 客户管理 - 库存管理 - 管理员登录 - 进货管理 - 销售管理
recommend-type

基于JSP商品销售管理系统源码.zip

这个是一个JSP商品销售管理系统,管理员角色包含以下功能:管理员登录,管理员首页,用户管理,供应商管理,商品管理,入库管理,出库管理,系统公告管理,管理员信息修改等功能。用户角色包含以下功能:用户注册,用户登录,供应商管理,商品管理,入库管理,出库管理,系统公告查看,个人信息修改等功能。 本项目实现的最终作用是基于JSP商品销售管理系统 分为2个角色 第1个角色为管理员角色,实现了如下功能: - 供应商管理 - 入库管理 - 出库管理 - 商品管理 - 用户管理 - 管理员信息修改 - 管理员登录 - 管理员首页 - 系统公告管理 第2个角色为用户角色,实现了如下功能: - 个人信息修改 - 供应商管理 - 入库管理 - 出库管理 - 商品管理 - 用户注册 - 用户登录 - 系统公告查看
recommend-type

什么是mysql以及学习了解mysql的意义是什么

mysql
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

解释minorization-maximization (MM) algorithm,并给出matlab代码编写的例子

Minorization-maximization (MM) algorithm是一种常用的优化算法,用于求解非凸问题或含有约束的优化问题。该算法的基本思想是通过构造一个凸下界函数来逼近原问题,然后通过求解凸下界函数的最优解来逼近原问题的最优解。具体步骤如下: 1. 初始化参数 $\theta_0$,设 $k=0$; 2. 构造一个凸下界函数 $Q(\theta|\theta_k)$,使其满足 $Q(\theta_k|\theta_k)=f(\theta_k)$; 3. 求解 $Q(\theta|\theta_k)$ 的最优值 $\theta_{k+1}=\arg\min_\theta Q(
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。