有没有办法打开一个带有VB功能的pdf绕过执行文件的路径（Acrobat.exe）

Posted 2021-03-26

我有一个MS-Access数据库，供多个用户使用不同的计算机设置使用（有些人使用Windows XP，有些人使用Windows 7，使用Adobe Reader 11.0或12.0等）。有没有办法打开（从表单中的命令按钮）一个pdf文件（使用Adobe Reader）与VB功能绕过执行文件的路径段（Acrobat.exe）？

现在，我有这个VB功能。

Call Shell("""C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe"" ""C:\DOCUMENTS\DOCUM\SPECS\Faune_DEV\SP" & Me![Element_id] & ".pdf", 1)

我想要的东西：

Call Shell("""C:\GoAndGetTheAcrobat.exeFile"" ""C:\DOCUMENTS\DOCUM\SPECS\Faune_DEV\SP" & Me![Element_id] & ".pdf", 1)

提前致谢

答案

是的，你可以使用Shell object来run the file。

' Use Windows shell to run file.
Sub WinRun()
    Dim shell As Object
    Set shell = CreateObject("WScript.Shell")

    shell.Run "Your-Drive:\Your-Path\Your-File.pdf"
End Sub

另一答案

您可以使用命令start.exe而不是使用应用程序路径，它会启动文件的默认应用程序：

start.exe [path_to_your_pdf_file]

所以你可以尝试：

Call Shell("""start.exe"" ""C:\DOCUMENTS\DOCUM\SPECS\Faune_DEV\SP" & Me![Element_id] & ".pdf", 1)

另一答案

您可以启动任何Windows文件，就像双击它一样：

application.FollowHyperlink "full path name to any windows file"

另一答案

调用Shell（“”“C：\ GoAndGetTheAcrobat.exeFile”“”“C：\ DOCUMENTS \ DOCUM \ SPECS \ Faune_DEV \ SP”＆Me！[Element_id]＆“。pdf”，1）