VBA UDF检查文件/目录存在性时如何让空单元格返回FALSE

• 当函数参数被强制定义为String类型时，传入的空白单元格会被VBA自动转换为空字符串""；而IsEmpty()仅对未初始化的Variant类型值/空白单元格返回True，对String类型的空串永远返回False，导致原代码的空值判断分支完全失效。
• *VBA的Dir()函数存在常见设计细节：传入空字符串""时，不会返回空值，反而会自动启动当前工作目录的文件遍历逻辑，返回当前目录下第一个匹配属性的文件/目录名称，直接绕过存在性判断。
• 原代码的存在性判断表达式存在书写/优先级错误：Dir(...) <> vbNullString = False的实际运算逻辑和注释预期相反，无法正确匹配“文件存在则返回True”的规则。
• 关于vbNormal + vbDirectory的属性拼接：该组合本身没有问题，可以同时匹配普通文件和目录，不需要调整，问题根源不在属性设置上。

Public Function checkExists(inputVal As Variant) As Boolean
    ' 识别传入的空白单元格场景
    If IsEmpty(inputVal) Then
        checkExists = False
        Exit Function
    End If
    
    ' 识别传入值为全空格空文本的场景
    Dim pathStr As String
    pathStr = Trim(CStr(inputVal))
    If pathStr = "" Then
        checkExists = False
        Exit Function
    End If
    
    ' 存在性判断，加错误捕获避免非法路径导致函数报错
    On Error Resume Next
    Dim dirCheck As String
    dirCheck = Dir(pathStr, vbNormal + vbDirectory)
    On Error GoTo 0
    
    checkExists = (dirCheck <> vbNullString)
End Function

• 参数类型从String改为Variant：可直接捕获传入的空白单元格值，让IsEmpty()判断正常生效，同时兼容直接传入文本路径的调用方式。
• 增加首尾空格裁剪：避免单元格内输入全空格时被误判为有效路径。
• 增加轻量错误捕获：如果传入路径包含非法文件名字符（如?、*、<>等），原代码会抛出#VALUE!错误，修正后会正常返回False，运行更稳定。
• 保留原有的vbNormal + vbDirectory属性组合，确保同时识别文件和目录的存在性，符合需求。

对照给出的测试数据，修正后的函数返回值完全符合预期：

• 存在的文件路径：返回TRUE
• 不存在的目录、父目录缺失的文件路径：返回FALSE
• 空白单元格：正确识别为空值，返回FALSE

内容的提问来源于stack exchange，提问作者Hugh