Excel VBA批量格式转换：xlsx转pdf、xls、csv以及反向转换

原创已于 2024-11-26 10:18:55 修改 · 1.2w 阅读

65 ·

CC 4.0 BY-SA版权

文章标签：

#excel #pdf

于 2019-01-06 18:06:47 首次发布

使用Excel VBA可以高效地实现xlsx文件批量转换为pdf、xls、csv格式，反之亦然。通过在VBA编辑器中插入模块并运行特定代码，可以自动处理文件路径和后缀名更改。此外，推荐查看关于Word和PowerPoint的批量转换方法，以及使用Office Tool Plus工具进行更多格式转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有时候需要把大量的xlsx文件另存为其它格式，比如pdf、xls、csv，或者反向转换，可以用VBA批量处理。启动Excel，按下Alt+F11，打开Microsoft Visual Basic for Applications,点击插入>模块，将下面的代码粘贴进去，然后按F5(某些笔记本电脑可能需要按Fn+F5)，或者点击图中的绿色小三角形，便可以执行代码。代码中涉及到的路径要根据自己的实际情况进行修改。Replace的作用是修改后缀名，SaveAs的作用是“另存为”。

Word的批量转换参见 Word VBA批量格式转换：docx转pdf、doc、rtf、txt以及反向转换_option explicit sub other2docx() on error resume n-优快云博客
PowerPoint的批量转换参见 PowerPoint VBA批量格式转换：pptx转pdf、ppt以及反向转换_用vba将powerpoint另存为pdf-优快云博客

还有一个名为Office Tool Plus(官网：Office Tool Plus | 一键部署 Office)的工具也可以进行批量格式转换。

'xlsx转pdf
Option Explicit
Sub xlsxConverter()
On Error Resume Next
Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String
Dim CurXls As Object
sSourcePath = "E:\XLSX文件\"  
'假定待转换的xlsx文件全部在"E:\XLSX文件\"下，你需要按实际情况修改。
sEveryFile = Dir(sSourcePath &"*.xlsx")
Do While sEveryFile <> ""
   Set Curxls = Workbooks.Open(sSourcePath & sEveryFile, , msoTrue )
   sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".xlsx", ".pdf")
   '转化后的文件也在"E:\xlsx文件\"下，当然你可以按需修改。
   CurXls.ExportAsFixedFormat xlTypePDF,sNewSavePath
   '更多格式可参见文末的截图ExportAsFixedFormat
   CurXls.Close SaveChanges:=False
   sEveryFile= Dir
Loop
Set CurXls = Nothing
End Sub

'xlsx转xls、csv
Option Explicit
Sub xlsxConverter()
On Error Resume Next
Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String
Dim CurXls As Object
sSourcePath = "E:\XLSX文件\"  
'假定待转换的xlsx文件全部在"E:\XLSX文件\"下，你需要按实际情况修改。
sEveryFile = Dir(sSourcePath &"*.xlsx")
Do While sEveryFile <> ""
   Set Curxls = Workbooks.Open(sSourcePath & sEveryFile, ,msoTrue)
   sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".xlsx", ".xls")
   '如果想导出csv，就把第12行行尾的xls换成csv
   '如果想把xls转为xlsx，把第9行的xlsx改为xls，把第12行行尾的".xlsx", ".xls"改为".xls", ".xlsx"
   '转化后的文件也在"E:\xlsx文件\"下，当然你可以按需修改。
   CurXls.SaveAs sNewSavePath, xlExcel8
   'xls对应xlExcel8,csv对应xlCSV,xlsx对应xlWorkbookDefault
   '更多格式可参见文末的截图XlFileFormat Enumeration (Excel)
   CurXls.Close SaveChanges:=False
   sEveryFile= Dir
Loop
Set CurXls = Nothing
End Sub