Excel批量转PDF工具的制作

这些天同事有300多份的Excel报价文档要转成PDF，说网上好多转换工具都要收费，问我有什么好办法。我研究了下用Excel 加简单几行代制作了一个批量转换工具效果还不错同事都说好用！今天就跟大家分享下这个工具的制作，有需要的同学过来瞧瞧吧。

先来看看效果：

打开百度APP，查看更多高清图片

制作步骤：

1.新建一个新的Excel表格，B2单元格输入=counta(a:a) 用于统计A列放入的待转换的文件名的个数。

2.用插入-形状工具绘制 提示文本箭头图形 和 Excel->PDF转换按钮图形

3.按ALT+F11进入VBE开发环境，创建模块1，输入如图以下代码：

具体代码如下：

Sub to_pdf()

Application.ScreenUpdating = False

Dim i, num As Integer

Dim PDFname, a1 As String

On Error GoTo Line

num = Range("b2")

If num < 1 Then

MsgBox "A列不存在待转换的文件名及路径，请输入后再试！", , "提示"

Range("a1").Select

End

End If

For i = 1 To num

a1 = Range("a" & i)

Workbooks.Open Filename:=a1

PDFname = Left(a1, Len(a1) - 4) & "pdf"

'Windows("a.xlsx").Activate

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFname

ActiveWindow.Close

Next

MsgBox "完成转换" & num & "个文件！", , "提示"

Application.ScreenUpdating = True

End

Line:

MsgBox "待转换的文件名或路径错误！"

End Sub

4.将Excel->PDF转换按钮图形 指定到宏 to_pdf（转换VBA代码）

5.将文档另存为以.xlsm为后缀的程序文档，比如：EXCEL转PDF工具.xlsm

这样批量将EXCEL文档转换为PDF文档的工具就制作完成了。

今天就跟大家分享到这了，不知道大家学会了吗？有任何问题可以给我留言。希望我的分享能对大家的工作有所帮助。喜欢我的文章的小伙伴请 关注、点赞、转发、也可以收藏备用。谢谢大家的支持！