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

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

VBA ExportAsFixedFormat Type:=xlTypePDF如何最快速

地将Excel文件转换为PDF格式? 您可以使用以下代码: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\UserName\Documents\FileName.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 其中,"ActiveSheet"是您要转换的工作表,"Filename"是您要保存的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

yolov5-face-landmarks-opencv

yolov5检测人脸和关键点,只依赖opencv库就可以运行,程序包含C++和Python两个版本的。 本套程序根据https://github.com/deepcam-cn/yolov5-face 里提供的训练模型.pt文件。转换成onnx文件, 然后使用opencv读取onnx文件做前向推理,onnx文件从百度云盘下载,下载 链接:https://pan.baidu.com/s/14qvEOB90CcVJwVC5jNcu3A 提取码:duwc 下载完成后,onnx文件存放目录里,C++版本的主程序是main_yolo.cpp,Python版本的主程序是main.py 。此外,还有一个main_export_onnx.py文件,它是读取pytorch训练模型.pt文件生成onnx文件的。 如果你想重新生成onnx文件,不能直接在该目录下运行的,你需要把文件拷贝到https://github.com/deepcam-cn/yolov5-face 的主目录里运行,就可以生成onnx文件。
recommend-type

setuptools-0.6c8-py2.5.egg

文件操作、数据分析和网络编程等。Python社区提供了大量的第三方库,如NumPy、Pandas和Requests,极大地丰富了Python的应用领域,从数据科学到Web开发。Python库的丰富性是Python成为最受欢迎的编程语言之一的关键原因之一。这些库不仅为初学者提供了快速入门的途径,而且为经验丰富的开发者提供了强大的工具,以高效率、高质量地完成复杂任务。例如,Matplotlib和Seaborn库在数据可视化领域内非常受欢迎,它们提供了广泛的工具和技术,可以创建高度定制化的图表和图形,帮助数据科学家和分析师在数据探索和结果展示中更有效地传达信息。
recommend-type

5-3.py

5-3
recommend-type

Java八股文.pdf

"Java八股文"是一个在程序员社群中流行的术语,特别是在准备技术面试时。它指的是一系列在Java编程面试中经常被问到的基础知识点、理论概念和技术细节。这个术语的命名来源于中国古代科举考试中的“八股文”,一种具有固定格式和套路的文章形式。 在Java编程的上下文中,"Java八股文"通常包括以下几个方面:"Java八股文"是一个在程序员社群中流行的术语,特别是在准备技术面试时。它指的是一系列在Java编程面试中经常被问到的基础知识点、理论概念和技术细节。这个术语的命名来源于中国古代科举考试中的“八股文”,一种具有固定格式和套路的文章形式。 在Java编程的上下文中,"Java八股文"通常包括以下几个方面:"Java八股文"是一个在程序员社群中流行的术语,特别是在准备技术面试时。它指的是一系列在Java编程面试中经常被问到的基础知识点、理论概念和技术细节。这个术语的命名来源于中国古代科举考试中的“八股文”,一种具有固定格式和套路的文章形式。 在Java编程的上下文中,"Java八股文"通常包括以下几个方面:"Java八股文"是一个在程序员社群中流行的术语,特别是在准备技术面试时。它
recommend-type

麦肯锡咨询顾问必备宝典.ppt

麦肯锡咨询顾问必备宝典.ppt
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

2. 通过python绘制y=e-xsin(2πx)图像

可以使用matplotlib库来绘制这个函数的图像。以下是一段示例代码: ```python import numpy as np import matplotlib.pyplot as plt def func(x): return np.exp(-x) * np.sin(2 * np.pi * x) x = np.linspace(0, 5, 500) y = func(x) plt.plot(x, y) plt.xlabel('x') plt.ylabel('y') plt.title('y = e^{-x} sin(2πx)') plt.show() ``` 运行这段
recommend-type

JSBSim Reference Manual

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