用vba打开文件夹所有的pdf解密

zhw79

文件自己的你不如直接加密文件本身，比如压缩密码

peter-chen

Sub DecryptPDFsInFolder()
    Dim sourceFolder As String
    Dim destFolder As String
    Dim password As String
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objPDF As Object
   
    ' 设置源文件夹路径
    sourceFolder = "C:\Path\To\Source\Folder"
   
    ' 设置目标文件夹路径
    destFolder = "C:\Path\To\Destination\Folder"
   
    ' 设置 PDF 文件密码
    password = "22335566"
   
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
   
    ' 检查源文件夹是否存在
    If Not objFSO.FolderExists(sourceFolder) Then
        MsgBox "源文件夹不存在。"
        Exit Sub
    End If
   
    ' 检查目标文件夹是否存在，如果不存在则创建它
    If Not objFSO.FolderExists(destFolder) Then
        objFSO.CreateFolder destFolder
    End If
   
    ' 获取源文件夹对象
    Set objFolder = objFSO.GetFolder(sourceFolder)
   
    ' 遍历源文件夹中的每个文件
    For Each objFile In objFolder.Files
        ' 检查文件是否为 PDF 文件
        If objFSO.GetExtensionName(objFile.Path) = "pdf" Then
            ' 创建 Acrobat 对象
            Set objPDF = CreateObject("AcroExch.PDDoc")
            
            ' 打开 PDF 文件
            If objPDF.Open(objFile.Path, password) Then
                ' 解密 PDF 文件
                objPDF.Encrypt ""      ' 使用空字符串作为密码来解密
               
                ' 获取新文件名（在目标文件夹中使用相同的文件名）
                Dim newFilePath As String
                newFilePath = destFolder & "\" & objFSO.GetBaseName(objFile.Name) & ".pdf"
               
                ' 保存解密后的 PDF 文件到目标文件夹中
                objPDF.Save 1, newFilePath
               
                ' 关闭 PDF 文件
                objPDF.Close
               
                ' 释放 Acrobat 对象
                Set objPDF = Nothing
               
                ' 显示处理成功的消息
                Debug.Print "已解密并保存文件: " & newFilePath
            Else
                ' 显示无法打开文件的消息
                Debug.Print "无法打开文件: " & objFile.Path
            End If
        End If
    Next objFile
   
    ' 释放对象
    Set objFSO = Nothing
    Set objFolder = Nothing
    Set objFile = Nothing
End Sub

山海风云轩

干嘛另外存档了

sahe

peter-chen 发表于 2023-6-22 12:52
Sub DecryptPDFsInFolder()
    Dim sourceFolder As String
    Dim destFolder As String

执行后出现错误objFSO.CreateFolder destFolder

sahe

peter-chen 发表于 2023-6-22 12:52
Sub DecryptPDFsInFolder()
    Dim sourceFolder As String
    Dim destFolder As String

执行后出现错误objFSO.CreateFolder destFolder
改成开启档案,然后在执行文件夹内的所有pdf

sahe

改成开启档案,然后在执行文件夹内的所有pdf