以下是将excel文件批量转为pdf文件的vbs脚本：
点击查看代码
Set exapp = CreateObject("excel.application")
exapp.Visible = False ' 隐藏Excel应用程序For i = 0 To WScript.Arguments.Count - 1Set workbook = exapp.Workbooks.Open(WScript.Arguments(i))' 获取脚本所在目录作为输出路径scriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")' 生成PDF文件名（与原Excel文件同名，但扩展名为.pdf）pdfName = scriptPath & Split(workbook.Name, ".")(0) & ".pdf"' 导出为PDFworkbook.ExportAsFixedFormat 0, pdfName ' 0 代表 xlTypePDFworkbook.Close False ' 关闭工作簿，不保存更改
Nextexapp.Quit
Set exapp = Nothing
使用方法：
-
可直接复制上述这段脚本文本到一个新建的文本文档中，再另存，注意编码格式选择为ANSI。
-
将文本文档后缀名由“.txt”改为“.vbs”。
-
框选中需要转为PDF格式的excel文件，拖拉放置在上述生成的“.vbs”脚本文件上，拖拉放置在文件上时会出现复制字符。
-
等待片刻，在当前文件夹下便会出现转换后的PDF文件。
