为了账号安全,请及时绑定邮箱和手机立即绑定

请问VBA则怎么检查文件是否存在

请问VBA则怎么检查文件是否存在

暮色呼如 2019-11-03 08:04:56
我有这个代码。应该检查文件是否存在,如果存在则将其打开。如果文件存在,它确实可以工作,但是如果不存在,则每当我将文本框保留为空白并单击提交按钮时,它都会失败。我想要的是,如果文本框为空,则显示错误消息,就像文件不存在一样。运行时错误“ 1004”Dim File As StringFile = TextBox1.ValueDim DirFile As StringDirFile = "C:\Documents and Settings\Administrator\Desktop\" & FileIf Dir(DirFile) = "" Then  MsgBox "File does not exist"Else    Workbooks.Open Filename:=DirFileEnd If
查看完整描述

3 回答

?
鸿蒙传说

TA贡献1865条经验 获得超7个赞

像这样的东西


最好使用工作簿变量来提供对打开的工作簿的进一步控制(如果需要)


已更新以测试文件名是实际的工作簿-这也使初始检查变得多余,除了向用户发送消息以外,文本框为空


Dim strFile As String

Dim WB As Workbook

strFile = Trim(TextBox1.Value)

Dim DirFile As String

If Len(strFile) = 0 Then Exit Sub


DirFile = "C:\Documents and Settings\Administrator\Desktop\" & strFile

If Len(Dir(DirFile)) = 0 Then

  MsgBox "File does not exist"

Else

 On Error Resume Next

 Set WB = Workbooks.Open(DirFile)

 On Error GoTo 0

 If WB Is Nothing Then MsgBox DirFile & " is invalid", vbCritical

End If



查看完整回答
反对 回复 2019-11-04
?
梵蒂冈之花

TA贡献1900条经验 获得超5个赞

我使用此功能检查文件是否存在:


Function IsFile(ByVal fName As String) As Boolean

'Returns TRUE if the provided name points to an existing file.

'Returns FALSE if not existing, or if it's a folder

    On Error Resume Next

    IsFile = ((GetAttr(fName) And vbDirectory) <> vbDirectory)

End Function



查看完整回答
反对 回复 2019-11-04
?
扬帆大鱼

TA贡献1799条经验 获得超9个赞

为了检查是否存在,还可以使用(适用于文件和文件夹):


Not Dir(DirFile, vbDirectory) = vbNullString

结果是True文件或目录是否存在。


例:


If Not Dir("C:\Temp\test.xlsx", vbDirectory) = vbNullString Then

    MsgBox "exists"

Else

    MsgBox "does not exist"

End If



查看完整回答
反对 回复 2019-11-04
  • 3 回答
  • 0 关注
  • 586 浏览
慕课专栏
更多

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信