大家好,我们今日继续讲解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学习交流群”。
这一系列文章是根据我多年的工作经验编写的,也是一直在利用的工具,非常方便好用。现在分享出来,希望能对同样在职场打拼的朋友有些许的帮助,使你的工作更加高效、流畅。朋友们有问题请随时提出来,我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我,及时为你提供专业的定制技术支持。
工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的,时间会抹去很多问题。多关注自己、家人和朋友,这些才是我们生活中更为重要的东西。