可以在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