如何用函数实现，判断表格中的文件名是否存在于指定文件夹中的文件

wingotr

在EXCEL中，如何用函数实现，判断表格中的文件名是否存在于指定文件夹中的文件，也就是说，EXCEL中输入文件名，可以判断文件夹中有无此文件，pdf文件，谢谢。

jyhxr

好象可以，用4.0宏函数

cflood

vba可以。。

wingotr

本人不懂VBA，也不懂函数，请详细说明，谢谢。

jyhxr

啥都不懂？
难整了...

lysfox

VBA是可以实现这个功能
Sub 按钮35212_Click()
Dim MyFile As Object
Set MyFile = CreateObject("Scripting.FileSystemObject")
fn = Cells(i, 1)
If MyFile.FileExists(fn) = True Then
Cells(i, 2) = "文件存在"
Else
Cells(i, 2) = "文件不存在"
End If
Next i
End Sub



但是如果光靠单元格里面输入的函数，好像无法实现

suihuas

各位高手，这样的函数，可否写成自定义函数，Function TT(目录，文件名关键字符) As String

不丶二丶君

1. Function isExist(文件名, 文件夹路径, 后缀)
   
2.     Dim fso As Object
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     If fso.FileExists(文件夹路径 & "\" & 文件名 & "." & 后缀) = True Then
   
5.         isExist = "文件存在"
   
6.     Else
   
7.         isExist = "文件不存在"
   
8.     End If
   
9. End Function

复制代码

hunter_jiangjq

8楼老师的很简洁，但是请问8楼的老师，如果是模糊匹配文件名，如何实现？

hunter_jiangjq

Function isExist(文件名, 文件夹路径, 后缀)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Len(Dir(文件夹路径 & "\" & "*" & 文件名 & "*" & "." & 后缀)) Then
        isExist = "存在"
    Else
        isExist = "不存在"
    End If
End Function
自己研究了一下，用Dir可以使用通配符，就可以模糊匹配判断了，供有需要的人使用！