如何定义一个特定的应用程序以从Excel打开pdf

Question

我想自动打开使用动态超链接定义的pdf，但是使用用户的DEFAULT pdf编辑器，但是除了下面的代码（在

我还有其他代码来保存pdf，它会自动保存它并在默认程序中为每个用户打开一个文件。但是我不知道如何反向操作，而是有一个文件可以通过动态超链接进行搜索和查找-然后可以使它们进行更新。

这是一种快捷方式，可以打开多个文件夹，手动设置位置，然后打开一个文件。理想情况下，我想自动化。

这是我到目前为止可以使用的代码，但是只能在Adobe中打开，而不能在默认程序中打开-这可能是PC上的固定设置吗？还是缺少代码？

Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("TNR Report")
Dim r As Range: Set r = ws.Range("A82") ' this defines the actual path and filename to be searched for

Dim strHyperlink As String
On Error GoTo CannotFindFile
strHyperlink = r.Value
ThisWorkbook.FollowHyperlink strHyperlink

文件需要以细微差别打开，以使用户能够编辑和更新“记录”，但只能在读取器中打开，这是无用的，并且有损代码的目的。

Answer 1

2种可能性：

1. 在Windows中将 Nuance 设置为默认应用程序，以打开PDF文件。

2. 使用shell命令以文件名作为参数开始细微差别

   Shell """C:\Path To Nuance\Nuance.exe"" ""C:\Path To PDF\pdffile.pdf"""