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
