gpt4 book ai didi

excel - 如何使用 VBA Excel 2007 确定文件是否存在?

转载 作者:行者123 更新时间:2023-12-02 07:28:29 25 4
gpt4 key购买 nike

我正在尝试重写一些使用 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/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com