題記:春節期間,疫情施虐,大家盡可能待在家裏,多學習有用的知識,多提高自己的水平和能力,這才是正道。
分享成果,隨喜真能量。大家好,今日內容仍是和大家分享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方法可以查找文件。
