VBA 文件搜索答案

【问题标题】：VBA FIle SearchVBA 文件搜索
【发布时间】：2016-02-13 18:52:52
【问题描述】：

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 文件，但我只知道文件名的一部分，所以请协助我如何打开文件名。谢谢！

【问题讨论】：

您必须使用 Dir 函数通过通配符打开文件。 techonthenet.com/excel/formulas/dir.php
尝试将If Fl.Name = F_Name Then改为If Fl.Name Like F_Name Then
这个答案将帮助您完成它stackoverflow.com/questions/19527415/…
但是在搜索之后如何打开那个特定的文件
在这一行将F_Name 更改为Fl.Name Workbooks.Open ....

标签： excel vba

【解决方案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

msgbox "File not found"
exit sub

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

编辑：

使用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

【讨论】：

我可以直接打开文件而不搜索吗？
@VBA_Coder，如果你不知道文件的全名我认为你不能不搜索就打开它，但是我们可以使用Dir来搜索而不循环（更快），见编辑。

【解决方案2】：

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

【讨论】：