Excel VBA 批量转换文件夹下的xlsx文件为pdf（多文件多sheet）

可以在excel工作表中通过宏将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件，遍历每个工作表的每个sheet并逐一转换。

Sub TO_PDF()

On Error Resume Next
Dim ALL_FILE As String, SourcePath As String, NewSaveFile As String
Dim CurFile As Object
Dim shit As Worksheet

SourcePath = "D:\WORK\" 
'待转换的源xlsx文件夹路径
OBJPath = "D:\WORK\PDF\"
'转换为pdf文件后的存放路径

ALL_FILE = Dir(SourcePath & "*.xlsx")'用*.xls*匹配其他xls、xlsm格式文件
Do While ALL_FILE <> ""
   Set CurFile = Workbooks.Open(SourcePath & ALL_FILE, , msoTrue)
   
   '遍历每个xlsx文件中的每个sheet进行转换
   For Each shit In CurFile.Worksheets
   NewSaveFile = OBJPath & "\" & CurFile.Name & "--" & shit.Name & ".pdf"
   '设置pdf文件名称
   shit.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewSaveFile
   '依次转换
   Next
  
   CurFile.Close SaveChanges:=False
   ALL_FILE = Dir
Loop
Set CurFile = Nothing

End Sub

其他xls、xlsm、csv格式文件转txt或pdf等相关方法参考以下内容：
https://blog.csdn.net/goldengod/article/details/79226612
VBA基础教程
参考：https://blog.csdn.net/pijianzhirui/article/details/85939896