主页 / coding / 问题 / 79449872
Accepted
flow'd
Asked: 2025-02-19 07:46:29 +0800 CST

VBA 脚本在 Acrobat 的单个实例中打开文件夹中的所有 pdf

  • 772

工作流程要求用户在使用 Excel 中的数据源时选择一个唯一 ID，然后单击一个按钮，该按钮将打开目标文件夹中的所有 pdf。我使用唯一 ID 和相关日期自动定位目标文件夹（有 10,000 个子文件夹）。我想在 Acrobat 的单个实例中打开目标目录中的所有文件。

以下可以循环遍历目标目录并打开所有 pdf 而不会出现任何错误。但这样做是在不同的 Acrobat 实例中完成的。即，如果有 5 个 pdf，则会打开 5 个 Acrobat 实例。有人可以就一种方法提供建议吗？这种方法可以在同一个 Acrobat 实例中打开目录中的所有 pdf。提前谢谢。

Sub OpenPDF1()

Dim path_to_exe As String
Dim floder_path As String
Dim pdf_to_open As String

pdf_to_open = ""

path_to_exe = "C:\\Program Files (x86)\\Adobe\\Acrobat Reader DC\\Reader\\AcroRd32.exe"

folder_path = "C:\\test1"

pdf_to_open = Dir(folder_path & "\*.pdf")

    Do While Len(pdf_to_open) > 0
        Shell path_to_exe & " " & folder_path & "\" & pdf_to_open
        pdf_to_open = Dir()
    Loop

End Sub
excel

2 个回答

  1. Best Answer

    要在 Acrobat 的单个实例中打开所有 PDF，您可以使用ShellExecuteWindows API 中的函数：

    Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Sub OpenPDF1()
    Dim folder_path As String
    Dim pdf_to_open As String

    folder_path = "C:\test1\"
    pdf_to_open = Dir(folder_path & "*.pdf")

    Do While Len(pdf_to_open) > 0
        ShellExecute 0, "open", folder_path & pdf_to_open, vbNullString, vbNullString, 1
        pdf_to_open = Dir()
    Loop
End Sub
    • 0

  2. 我可能已经解决了这个问题。我没有使用“Shell path_to_exe”，而是使用了 ActiveWorkbook.FollowHyperlink。

    如果有人能建议如何使用 Shell 执行此操作，这将满足我对使用 Shell 的方法的好奇心。谢谢

    • 0

相关问题