VBA打开PDF功能异常：文件存在与否均弹出未找到提示框求助

核心问题 #

1. FileExists函数路径拼接错误：调用函数时传入的mypath已经是完整的文件路径（E:\4-2022\文件名.pdf），但函数内部又将mypath与filename再次拼接并添加.pdf，导致生成的路径完全错误（比如变成E:\4-2022\test.pdftest.pdf），因此函数永远返回False，触发提示框。
2. 逻辑顺序颠倒：代码先尝试打开文件，再判断文件是否存在，即使文件存在打开成功，错误的判断逻辑依然会弹出提示。
3. 错误处理不当：On Error Resume Next会掩盖打开文件时的真实错误，不利于排查问题。

修正后的代码 #

Sub viewdoc()
    Dim mypath As String
    Dim filename As String
    
    filename = frmDELEGATION.txtLedger.Value
    ' 拼接完整文件路径
    mypath = "E:\4-2022\" & filename & ".pdf"
    
    ' 先判断文件是否存在
    If FileExists(mypath) Then
        ThisWorkbook.FollowHyperlink mypath
    Else
        MsgBox "No Documents Found."
    End If
End Sub

' 简化FileExists函数，只接收完整文件路径作为参数
Function FileExists(ByVal fullFilePath As String) As Boolean
    ' Dir函数传入完整路径，判断是否存在该文件
    FileExists = (Dir(fullFilePath, vbNormal) <> "")
End Function

修正说明 #

• 简化FileExists函数：直接接收完整的文件路径作为参数，避免重复拼接导致的路径错误，使用vbNormal参数确保只检测普通文件。
• 调整逻辑顺序：先判断文件是否存在，存在则打开，不存在才弹出提示框，符合需求逻辑。
• 移除不必要的错误处理：去掉On Error Resume Next，如果打开文件时出现其他错误（比如权限问题），可以直接捕获并处理（如需针对性错误处理可自行添加）。

内容的提问来源于stack exchange，提问作者Funny Memo Ms