如何用vba把excel文件发布转化为pdf格式文件？
在office 2007版本以后，微软新增了将excel文件发布转化为pdf格式文档的功能。
操作上可以单击“文件”选项卡，然后单击“导出”命令，可以选择将excel 工作簿导出为PDF文档。
在vba中，也提供了ExportAsFixedFormat方法可以将excel的Workbook 、Sheet 、Chart 、 Range等 对象导出为PDF格式。
它的语法如下：
Visual Basic
1
expression . ExportAsFixedFormat( Type , Filename , Quality , IncludeDocProperties , IgnorePrintAreas , From , To , OpenAfterPublish , FixedFormatExtClassPtr )
参数说明如下：
参数名称
必需/可选
数据类型
参数说明
Type
必需
XlFixedFormatType
可以是xlTypePDF或者xlTypeXPS。
Filename
可选
Variant
要保存的文件名的完整路径。
Quality
可选
Variant
发布的质量，可以是xlQualityStandard 或者 xlQualityMinimum。
IncludeDocProperties
可选
Variant
是否保存文档属性。
IgnorePrintAreas
可选
Variant
如果设置为True，则忽略打印区域的设置，如果为False，则按照打印区域的设置发布。
From
可选
Variant
开始发布的页码，如果这个参数省略，从第一页开始发布。
To
可选
Variant
结束发布的页码，如果这个参数省略，到最后一页结束发布。
OpenAfterPublish
可选
Variant
如果设置为True，则发布完成后会打开文件，如果为False，则发布后不显示。
FixedFormatExtClassPtr
可选
Variant
指向FixedFormatExt类的指针。
excel最强教科书完全版pdf
如以下代码将把工作簿中的所有工作表逐一发布为PDF格式的文件：
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub QQ1722187970()
'以下代码把工作表逐一转换为PDF文件
Dim oWK As Worksheet
Dim sPath As String
sPath = Excel.ThisWorkbook.Path
For Each oWK In Excel.ThisWorkbook.Worksheets
sName = sPath & "\" & oWK.Name & ".pdf"
oWK.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sName
Next
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。