强制excel超链接打开Acrobat Reader而不更改系统默认的pdf阅读器

Question

由于许多用户可能有不同的PDF编辑/审阅程序，但由于IT策略，所有用户都有Acrobat阅读器，我想要一个excel超链接来使用Acrobat阅读器打开PDF网址。

我还没有找到这个，但file://...之类的acrobat://...是否有一些网址前缀替代？{/ p>

PDF文件位于本地网络上，而非互联网。

想要Acrobat的原因让我可以使用PDF打开参数： https://www.adobe.com/content/dam/acom/en/devnet/acrobat/pdfs/pdf_open_parameters.pdf

Answer 1

以下子将从本地驱动器打开PDF文件。

Sub OpenPDFbyAdobeReader()
    Dim OpenFile
    OpenFile = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe E:\TestFolder\TestFile.pdf", vbNormalFocus)
End Sub

您可能需要更改adobe acrobat reader在PC中安装的路径。用网络路径替换文件路径。我不使用网络路径测试它。但是使用本地驱动器文件路径在我的PC中测试代码。

的 编辑：

以下代码适用于网络路径。

Sub OpenPDFbyAdobeReader()
    Dim OpenFile
    OpenFile = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe \\MyDesktop-PC\Share_Folder\Test_File.pdf", vbNormalFocus)
End Sub

\\MyDesktop-PC\Share_Folder\Test_File.pdf是位于网络路径上的文件。您已确保对该文件的访问权限。