如何修改PDF转Excel的VBA宏实现批量处理文件夹内PDF文件

可以修改代码实现批量处理指定文件夹内的所有PDF文件，并将所有内容汇总到Sheet1的A1单元格。以下是修改后的完整代码：

Sub BatchPDF2Excel()
    Dim folderPath As String
    Dim pdfFileName As String
    Dim openPDF As Object
    Dim targetSheet As Worksheet
    Dim currentContent As String
    
    ' 指定目标工作表
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    ' 清空A1原有内容
    targetSheet.Range("A1").ClearContents
    
    ' 获取用户选择的文件夹路径
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择要处理的PDF文件夹"
        If .Show = -1 Then
            folderPath = .SelectedItems(1) & "\"
        Else
            MsgBox "未选择文件夹，程序退出"
            Exit Sub
        End If
    End With
    
    ' 遍历文件夹内所有PDF文件
    pdfFileName = Dir(folderPath & "*.pdf")
    Do While pdfFileName <> ""
        On Error Resume Next
        Set openPDF = CreateObject("Shell.Application")
        openPDF.Open (folderPath & pdfFileName)
        On Error GoTo 0
        
        ' 等待PDF打开
        Application.Wait Now + TimeValue("00:00:2")
        
        ' 全选并复制内容
        AppActivate pdfFileName ' 激活PDF窗口
        SendKeys "^a", True
        Application.Wait Now + TimeValue("00:00:1")
        SendKeys "^c", True
        Application.Wait Now + TimeValue("00:00:1")
        
        ' 关闭PDF窗口
        SendKeys "%{F4}", True
        Application.Wait Now + TimeValue("00:00:1")
        
        ' 将复制的内容追加到A1
        targetSheet.Range("A1").Select
        targetSheet.Paste
        ' 添加分隔符区分不同PDF内容（可选）
        targetSheet.Range("A1").Value = targetSheet.Range("A1").Value & vbCrLf & "-------------------------" & vbCrLf
        
        ' 获取下一个PDF文件
        pdfFileName = Dir
    Loop
    
    ' 回到工作簿
    AppActivate ThisWorkbook.Windows(1).Caption
    MsgBox "所有PDF内容已汇总完成！"
End Sub

关键改动说明 #

• 文件夹选择：通过FileDialog让用户可视化选择目标文件夹，比单元格输入更直观
• 批量遍历：使用Dir函数循环获取文件夹内所有.pdf格式文件
• 内容追加：每次复制PDF内容后追加到A1，而非覆盖原有内容，添加的分隔符可帮助区分不同PDF的内容（可按需删除）
• 窗口管理：处理完每个PDF后自动关闭窗口，避免打开过多程序窗口
• 错误处理：添加基础错误捕获，防止单个PDF打开失败导致整个程序中断

注意：SendKeys方法依赖系统窗口激活，运行时请勿操作鼠标键盘，确保程序能正常控制窗口；部分PDF阅读器的快捷键可能不同，若无法正常复制，可根据你的PDF阅读器调整快捷键。

内容的提问来源于stack exchange，提问作者Ajit Kumar Jena