FileExists方法，VBA程序能够快速有效查找文件的钥匙

大家好，我们今日继续讲解VBA代码解决方案的第80讲内容：如何查找文件。总是在讲解VBA，其实VBA真的功能强大，但也有他自身的不足，我的感觉，如果是处理一些数据的统计，归类之类的问题，VBA的作用是非常的强大的，如果是大型数据的实时处理，数据库的多用户共享，这些还是不建议用VBA来解决。

我们今天讲的是在VBA中如何查找文件。使用FileSystemObject对象的FileExists方法可以查找指定的文件，应用于FileSystemObject对象的FileExists方法查找指定的文件，是一个非常有效的手段.

语法如下：object.FileExists(filespec)

参数:

a) object是必须的，FileSystemObject对象的名称。

b) filespec是必须的，要确定是否存在的文件的名字。如果文件不在当前文件夹中，必须提供一个完整的路径说明。

特别注意点：使用FileExists方法查找文件时如果指定的文件存在，返回True，若不存在，则返回False，根据返回值可以确定所要查找的文件是否存在。

我们看下面的一段实测代码,如下:

Sub MyFileExis()

Dim MyFile As Object

Dim Str As String

Dim StrMsg As String

Str = ThisWorkbook.Path & '\人员表单.txt'

Set MyFile = CreateObject('Scripting.FileSystemObject')

If MyFile.FileExists(Str) Then

MsgBox '文件已找到!'

Else

MsgBox '文件不存在!'

End If

Set MyFile = Nothing

End Sub

代码解析：

MyFileExis过程使用FileExists方法查找示例所在文件夹中是否存在'人员表单.txt'文件。

第6行代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。

第7行代码使用FileExists方法可以查找文件。

在这个平台上，我力争用每个程序解决一个问题，其实把这些程序结合自己的工作略加修改就可以起到很大的作用，比如这里的查询用到了在指定的文件夹下的查询指定的文件，这个指定的文件是程序里给出的，如果这个文件是我随时的输入的该怎么处理呢？如果能实现，就可以实现随时给出文件，即时查询的效果了，对上面的程序稍加修改是很容易实现的。

代码截图：

运行效果：

如果找不到（我在后台把'人员表单'改为'人员名单'）则提示：

今日内容回向：

1 如何实现文件的查找？

2 FileExists方法的意义是什么?