我正在尝试重写一些使用 Excel 2003 VBA 的 FileSearch 的代码。我正在尝试调用一个应确定 1 或 0 的函数,并使用 If
语句执行一些代码或迭代到下一个文件。
我的函数没有返回正确的结果。
我的代码:
Dim MyDir As String, Fn As String
Dim MyFile As String
MyDir = "C:Test\"
Fn = "" & "" & Examiner & " " & MnName & " " & Yr & ".xls"
MyFile = MyDir & """" & Fn & """"
If FileThere(MyFile) Then
MsgBox yes
Else
MsgBox Not there
End If
'''''''''''''''''
Function FileThere(FileName As String) As Boolean
FileThere = (Dir(FileName) > "")
End Function
最佳答案
Sub a()
MsgBox "test1 " & FileThere("c:\test1.bat")
MsgBox "k1" & FileThere("c:\k1")
End Sub
Function FileThere(FileName As String) As Boolean
If (Dir(FileName) = "") Then
FileThere = False
Else:
FileThere = True
End If
End Function
关于excel - 如何使用 VBA Excel 2007 确定文件是否存在?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4082539/