25、[VBA入门到放弃笔记] 判断工作簿是否存在

• Dir函数判断工作簿是否存在

Sub 文件是否存在()  'dir函数+带文件名称的路径
    a = Dir("C:\Users\Administrator\Desktop\vba笔记\15.操作工作簿\123.xls")
    If a = "" Then
        MsgBox "不存在"
    Else
        MsgBox "存在"
    End If
End Sub

• 将上面的代码改为自定义函数，方便引用。

Private Function FileExists(fname) As Boolean 
    Dim x As String
    x = Dir(fname)
    If x <> "" Then FileExists = True _
        Else FileExists = False
End Function

• 用上面的自定义函数判断工作簿是否存在，参数是--带文件名的路径。

Sub 文件存在吗1()
    Dim sFileName As String
    sFileName = "C:\Users\Administrator\Desktop\vba笔记\15.操作工作簿\小猫.xlsx"
    If FileExists(sFileName) Then
        MsgBox sFileName & " 存在"
    Else
        MsgBox sFileName & " 不存在"
    End If
End Sub