疫情施虐,多学习有用的知识才是正道

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

分享成果,随喜真能量。大家好,今日内容仍是和大家分享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方法可以查找文件。

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注