EXCEL中利用VBA将指定目录下，所有指定格式文件转换为PDF文件

MR_PP

qujing342 发表于 2024-6-4 08:21
我用的是2010版，下载测试，提示"找不到工程或库

1. Sub ConvertFilesToPDF()
   
2.     Dim FolderPath As String
   
3.     Dim FileName As String
   
4.     Dim objWord As Object
   
5.     Dim objDoc As Object
   
6.    
   
7.     ' 设置目标文件夹路径
   
8.     FolderPath = "D:"
   
9.    
   
10.     ' 检查目录是否存在
    
11.     If Dir(FolderPath, vbDirectory) = "" Then
    
12.         MsgBox "目录不存在。"
    
13.         Exit Sub
    
14.     End If
    
15.    
    
16.     ' 循环处理目录下的文件
    
17.     FileName = Dir(FolderPath & "*.doc*") ' 指定需要转换的文件格式，如doc，docx等
    
18.    
    
19.     Do While FileName <> ""
    
20.         ' 打开Word文档
    
21.         Set objWord = CreateObject("Word.Application")
    
22.         Set objDoc = objWord.Documents.Open(FolderPath & FileName)
    
23.         
    
24.         ' 将Word文档另存为PDF
    
25.         objDoc.ExportAsFixedFormat FolderPath & Replace(FileName, ".doc", ".pdf"), 17 ' 17表示PDF格式
    
26.         
    
27.         ' 关闭Word文档
    
28.         objDoc.Close
    
29.         objWord.Quit
    
30.         
    
31.         ' 继续处理下一个文件
    
32.         FileName = Dir
    
33.     Loop
    
34.    
    
35.     ' 释放Word应用程序对象
    
36.     Set objWord = Nothing
    
37.     Set objDoc = Nothing
    
38.    
    
39.     MsgBox "转换完成。"
    
40.    
    
41. End Sub
    
42. 
    

复制代码

AI 生成的。