Excel VBA 批量转换文件夹下的xlsx文件为pdf(多文件多sheet) | 您所在的位置:网站首页 › excel做pdf文件 › 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 |
CopyRight 2018-2019 实验室设备网 版权所有 |