先来看看效果：

打开百度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文档的工具就制作完成了。