Excel VBA 中如何正确检查路径是否存在？

2024-03-07 09:17:05

Excel VBA 中正确检查路径是否存在

问题

使用 Excel VBA 函数 GetFilePathIfExists 检查路径是否存在时，即使路径存在，该函数也可能返回错误的结果。这导致程序执行不正确，浪费时间和精力。

解决方案

要解决此问题，我们需要修改 GetFilePathIfExists 函数，以正确处理返回 0 的情况。修改后的函数如下：

Function GetFilePathIfExists(filePath As String) As String
    If Len(Dir(filePath)) > 0 Then
        GetFilePathIfExists = filePath
    End If
End Function

修改后的函数不再使用 Else 语句返回空字符串。如果路径不存在，函数直接退出，不返回任何值。这将导致函数返回 Nothing，在 VBA 中被视为 False，从而更准确地反映路径不存在的情况。

步骤

找到并修改 GetFilePathIfExists 函数，如上所示。
在你的 VBA 代码中使用修改后的函数。
现在，函数将正确识别路径是否存在，并相应地返回结果。

示例

Function GetFilePathIfExists(filePath As String) As String
    If Len(Dir(filePath)) > 0 Then
        GetFilePathIfExists = filePath
    End If
End Function

Sub TestGetFilePathIfExists()
    Dim filePath1 As String
    Dim filePath2 As String
    Dim pathToCheck As String
    Dim pathToTake As String

    ' Specify the file paths
    filePath1 = "firstPath\invalid" 
    filePath2 = "C:\Users\myusername\Desktop\TestFolder"

    If GetFilePathIfExists(filePath1) Then
         Debug.Print "Found in A"
         pathToTake = filePath1
         
    ElseIf GetFilePathIfExists(filePath2) Then
        Debug.Print "Found in B"
        pathToTake = filePath2
        
    Else
        ' If neither file path is found, use the path of the active workbook
        pathToTake = ThisWorkbook.Path
        Debug.Print "Found in C"
    End If
End Sub