vbs脚本，批量将excel文件转为pdf文件

以下是将excel文件批量转为pdf文件的vbs脚本：

点击查看代码

Set exapp = CreateObject("excel.application")
exapp.Visible = False ' 隐藏Excel应用程序

For i = 0 To WScript.Arguments.Count - 1
    Set workbook = exapp.Workbooks.Open(WScript.Arguments(i))
    
    ' 获取脚本所在目录作为输出路径
    scriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
    
    ' 生成PDF文件名（与原Excel文件同名，但扩展名为.pdf）
    pdfName = scriptPath & Split(workbook.Name, ".")(0) & ".pdf"
    
    ' 导出为PDF
    workbook.ExportAsFixedFormat 0, pdfName ' 0 代表 xlTypePDF
    
    workbook.Close False ' 关闭工作簿，不保存更改
Next

exapp.Quit
Set exapp = Nothing

使用方法：

• 可直接复制上述这段脚本文本到一个新建的文本文档中，再另存，注意编码格式选择为ANSI。

• 将文本文档后缀名由“.txt”改为“.vbs”。

• 框选中需要转为PDF格式的excel文件，拖拉放置在上述生成的“.vbs”脚本文件上，拖拉放置在文件上时会出现复制字符。

• 等待片刻，在当前文件夹下便会出现转换后的PDF文件。

注：将excel文件转换为PDF文件时需注意excel文件的页面大小，excel横向宽度过宽，会导致表格被截断在不同页面上输出，处理措施有：可以将缩放选项设定为整夜匹配或宽度匹配。通过针对不同文件使用不同的缩放选项来处理页面输出不匹配问题。