VBA如何引用工作表单元格存储的路径打开对应PDF文件？

常见触发原因 #

• Paths工作表C2单元格存储的路径为相对路径、存在多余空格、符号错误（比如全角反斜杠、引号缺失）
• FollowHyperlink方法受Office超链接安全策略限制，对带空格、特殊字符的路径兼容性差
• 路径对应的PDF文件实际不存在/权限不足无法访问

修复后的可用代码 #

Sub OpenTargetPDF()
    Dim pdfPath As String
    ' 读取路径并自动去除首尾多余空格
    pdfPath = Trim(ThisWorkbook.Sheets("Paths").Range("C2").Value)
    
    ' 校验路径是否为空
    If pdfPath = "" Then
        MsgBox "请先在Paths工作表C2单元格配置PDF完整路径", vbExclamation
        Exit Sub
    End If
    
    ' 校验目标文件是否真实存在
    If Dir(pdfPath) = "" Then
        MsgBox "未找到对应PDF文件，请检查路径：" & vbCrLf & pdfPath, vbExclamation
        Exit Sub
    End If
    
    ' 调用系统资源管理器打开默认PDF程序，兼容性远高于FollowHyperlink
    Shell "explorer.exe """ & pdfPath & """", vbNormalFocus
End Sub

使用注意事项 #

• C2单元格请填写PDF的完整绝对路径，示例：C:\Users\Public\Documents\测试文件.pdf
• 如果PDF和当前Excel文件在同一路径下，可以用动态路径拼接：pdfPath = ThisWorkbook.Path & "\" & Trim(ThisWorkbook.Sheets("Paths").Range("C2").Value)，C2只需要填PDF文件名即可

内容的提问来源于stack exchange，提问作者Boris Johnson's Cat