VBA FIle Search

Question

Sub Main() 
Dim FSO As New FileSystemObject 
Dim Fl As File 
Dim Folder As Folder 
Dim F_Name, F_Path As String 
F_Path = ThisWorkbook.Path & "\" 
Set Folder = FSO.GetFolder(F_Path) 
F_Name = "CI*.*" 
For Each Fl In Folder.Files 
    If Fl.Name = F_Name Then 
     GoTo Report 
    End If 
Next 

Report: 
Workbooks.Open Filename:=F_Path & F_Name 

Я хотел бы открыть файл excel с таким же адресом, но я знаю только часть имени файла, поэтому, пожалуйста, помогите мне как открыть имя файла. Благодаря!

Answer 1

Sub Main() 
Dim FSO As New FileSystemObject 
Dim Fl As File 
Dim Folder As Folder 
Dim F_Name, F_Path As String 
F_Path = ThisWorkbook.Path & "\" 
Set Folder = FSO.GetFolder(F_Path) 
F_Name = "CI*.*" 
For Each Fl In Folder.Files 
If Fl.Name Like F_Name Then 
    GoTo Report 
End If 
Next 

Report: 
Workbooks.Open Filename:=F_Path & Fl.Name 

Answer 2

Try:

Sub Main() 
Dim FSO As New FileSystemObject 
Dim Fl As File 
Dim Folder As Folder 
Dim F_Name, F_Path As String 
F_Path = ThisWorkbook.Path & "\" 
Set Folder = FSO.GetFolder(F_Path) 
F_Name = "CI*.*" 
For Each Fl In Folder.Files 
    If Fl.Name Like F_Name Then 
     GoTo Report 
    End If 
Next 

msgbox "File not found" 
exit sub 

Report: 
Workbooks.Open Filename:=F_Path & Fl.Name 
End Sub 

Edit:

Для поиска с помощью Dir:

Sub TestDir() 

    Dim F_Path As String, F_Name As String, f As String 

    F_Path = ThisWorkbook.Path & "\" 
    F_Name = "CI*.*" 

    f = Dir(F_Path & F_Name) 

    If f = "" Then 
    MsgBox "File not found" 
    Else 
    Workbooks.Open FileName:=F_Path & f 
    End If 

End Sub