excel - VBA检查文件是否存在

Question

我有这个代码。它应该检查文件是否存在，如果存在则打开它。如果文件存在，它确实有效，如果不存在，但是，每当我将文本框留空并单击提交按钮时，它都会失败。如果文本框为空，我想要的是显示错误消息，就像文件不存在一样。

Runtime-error "1004"

Dim File As String
File = TextBox1.Value
Dim DirFile As String

DirFile = "C:\Documents and Settings\Administrator\Desktop\" & File
If Dir(DirFile) = "" Then
  MsgBox "File does not exist"
Else
    Workbooks.Open Filename:=DirFile
End If

Answer 1

类似这样的事情

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

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

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