我有這個(gè)代碼。應(yīng)該檢查文件是否存在，如果存在則將其打開(kāi)。如果文件存在，它確實(shí)可以工作，但是如果不存在，則每當(dāng)我將文本框保留為空白并單擊提交按鈕時(shí)，它都會(huì)失敗。我想要的是，如果文本框?yàn)榭?，則顯示錯(cuò)誤消息，就像文件不存在一樣。運(yùn)行時(shí)錯(cuò)誤“ 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 回答
鴻蒙傳說(shuō)
TA貢獻(xiàn)1865條經(jīng)驗(yàn) 獲得超7個(gè)贊
像這樣的東西
最好使用工作簿變量來(lái)提供對(duì)打開(kāi)的工作簿的進(jìn)一步控制（如果需要）
已更新以測(cè)試文件名是實(shí)際的工作簿-這也使初始檢查變得多余，除了向用戶(hù)發(fā)送消息以外，文本框?yàn)榭?/p>
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
梵蒂岡之花
TA貢獻(xiàn)1900條經(jīng)驗(yàn) 獲得超5個(gè)贊
我使用此功能檢查文件是否存在：
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
揚(yáng)帆大魚(yú)
TA貢獻(xiàn)1799條經(jīng)驗(yàn) 獲得超9個(gè)贊
為了檢查是否存在，還可以使用（適用于文件和文件夾）：
Not Dir(DirFile, vbDirectory) = vbNullString
結(jié)果是True文件或目錄是否存在。
例：
If Not Dir("C:\Temp\test.xlsx", vbDirectory) = vbNullString Then
MsgBox "exists"
Else
MsgBox "does not exist"
End If
添加回答
舉報(bào)
0/150
提交
取消