题记：春节期间，疫情施虐，大家尽可能待在家里，多学习有用的知识，多提高自己的水平和能力，这才是正道。

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单”积木”过程代码，这些内容大多是取至我编写的”VBA代码解决方案”教程中内容。NO.183-NO.184内容是：

NO. 195：在VBA代码中使用使用Getfile方法获取文件信息

NO. 196：在VBA代码中使用使用FileExists方法查找文件。

VBA过程代码196：在VBA代码中使用使用FileExists方法查找文件

Sub mynz ()

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

代码解析：mynz过程使用FileExists方法查找示例所在文件夹中是否存在”人员表单.txt”文件。代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。

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