object htmlinputelement 怎么解决_VBA代码解决方案的第80讲内容：如何查找文件

大家好，我们今日继续讲解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方法的意义是什么?

欢迎到我的自媒体平台沟通交流：个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。

这一系列文章是根据我多年的工作经验编写的，也是一直在利用的工具，非常方便好用。现在分享出来，希望能对同样在职场打拼的朋友有些许的帮助，使你的工作更加高效、流畅。朋友们有问题请随时提出来，我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我，及时为你提供专业的定制技术支持。

工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的，时间会抹去很多问题。多关注自己、家人和朋友，这些才是我们生活中更为重要的东西。