如果要将大量的Excel表格转换成PDF文档，手动转换比较费时，那又该如何让它自动转换呢？
工具/原料
操作设备：计算机
操作系统：Windows7
办公软件：Excel2010
PDF编辑软件：AdobeAcrobat
方法/步骤
1、打开Excel表格，点击【开发工具】、【VisualBasic】调出VBE编辑器。
2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块的代码框里边输入以下VBA程序代码。SubExportToPDF()Dim咯悝滩镞Arr,Str1,Str2,Shp,myPath1,myPath2,惺绅寨瞀MyPos,Na,Sh,i1,i2OnErrorResumeNext'忽略运行中可能出现的错误Application.ScreenUpdating=False'关闭工作表更新，提高运行速度Application.DisplayAlerts=False'忽略报警提示Arr=Array(".xls",".xlsx",".xlsm")'Excel格式集合myPath1="D:\ABCD1\"'源文件路径myPath2=myPath1&"EFGH\"'导出路径MkDirmyPath2'新建文件夹Setfs=CreateObject("Scripting.FileSystemObject")'计算机文件访问Setfo=fs.GetFolder(myPath1)'获取文件夹ForEachfiInfo.Files'扫描文件夹里面的每一个文件i1=0i2=0Na=fi.Name'获取文件名称Doi1=MyPos'寄存上次获取“.”的位置i2=i2+1MyPos=InStr(MyPos+1,Na,".")'获取"."存在的位置IfMyPos=0Andi2<>1ThenStr1=Right(Na,Len(Na)-i1+1)'截取后缀名Str2=Left(Na,i1-1)&".pdf"'生成新的PDF文件名称IfUBound(Filter(Arr,Str1))=0Then'如果是Excel格式的文件，则Workbooks.OpenFilename:=myPath1&Na'打开Excel文件ForEachShInWorkbooks(Na).Sheets'扫描每张工作表Sh.PageSetup.Zoom=80'工作表打印区域设定成80%NextWorkbooks(Na).ExportAsFixedFormatType:=xlTypePDF,_Filename:=myPath2&Str2,Quality:=xlQualityStandard'输出PDF文件Workbooks(Na).Close'关闭工作表EndIfExitDo'退出Do循环EndIfLoopNextApplication.DisplayAlerts=True'恢复报警提示Application.ScreenUpdating=True'恢复更新显示EndSub
4、确认无误后（主要是待转换的Ex罕铞泱殳cel文件路径），然后在VBE编辑器的功能区上面点击“运行”图标运行程序。
5、程序运行完成后，打开源文件里边新生成的文件夹。
6、将会看到批量导出的PDF文件。
