用于检查文件是否存在的 Excel 宏

Question

我对 VBA 没有任何了解。我有包含文件路径的 excel 文件，我想在该位置找到文件的存在。

我尝试了以下方法，但需要比这更好的方法

Sub Test_File_Exist_With_Dir()
    Dim FilePath As String
    Dim TestStr As String

    FilePath = ActiveSheet.Range("A7").Value

    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
        ActiveSheet.Range("B7").Value = 0
    Else
        ActiveSheet.Range("B7").Value = 1
    End If

End Sub

预期输出

    File path                       Existence
    C:\Users\Desktop\Excel\Jan15.txt    1
    C:\Users\Desktop\Excel\Feb15.txt    1
    C:\Users\Desktop\Excel\Mar15.txt    1
    C:\Users\Desktop\Excel\Apr15.txt    0
    C:\Users\Desktop\Excel\May15.txt    0

如果我向数据添加新行，那么它的存在应该会自动填充。

Answer 1

Yau 可以在您的工作簿中直接将其用作函数，作为经典的 Excel 公式，只需键入 =File_Exist(A1)，这将用作普通函数（您可以轻松地自动填充下一行）。

Public Function File_Exist(ByVal FilePath As String) As Integer
    On Error Resume Next

    Dim TestStr As String
    TestStr = Dir(FilePath)
    On Error GoTo 0

    If TestStr <> "" Then
        File_Exist = 1
    Else
        File_Exist = 0
    End If

End Function

如果您想自动测试存在性并在每次向数据添加新行时填充，那么您将不得不使用Worksheet_SelectionChange，但如果您有实用功能，它会比这更困难并且不是那么有用！