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 '依次转换 CurFile. Close SaveChanges : = False ALL_FILE = Dir 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

可以将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件，遍历每个工作表的每个sheet并逐一转换。Sub TO_PDF()On Error Resume NextDim ALL_FILE As String, SourcePath As String, NewSaveFile As StringDim CurFile As ObjectDim shit As Worksh... 代码可以做成wsf 文件 ，通过C语言或者java调用 <job id="etop"> <reference guid="{00020813-0000-0000-C000-000000000046}" comment="MS Excel 2000 tag library, under HKEY_CLASSES_ROOT\TypeLib\"/> <script language="VBScript"> Option Explicit Dim spath As String spath = Excel .ThisWorkbook.Path For Each asy In Excel .ThisWorkbook.Work sheet s sName = spath & "\" &am... Function RDB_Create_ PDF (Myvar As Object, FixedFilePathName As String, _ OverwriteIfFileExist As Boolean, Open PDF AfterPublish As Boolean) As String Dim FileFormatstr As String     本文转自www. excel 123.cn 原文作者 Excel 123 Excel 2010和 Excel 2007可以将 Excel 工作簿另存为 PDF 格式 文件 ，但手工的方法每次只能 转换 一个工作簿，要 转换 多个工作簿就显得有些繁琐。如果没有 批量 转换 软件，在 Excel 2010和 Excel 2007中，利用 VBA 代码也可以轻松实现将 Excel 工作簿 批量 转换 为 PDF ，方法如下：