如何通过部分路径/名称打开Excel文件（避免InStr()及循环）

嘿，针对你的两个Excel操作问题，我来分享下直接实用的解决方案：

咱们可以利用VBA里的Dir函数配合通配符来实现，通配符*可以代表任意长度的任意字符，完美适配“部分名称匹配”的需求。

举个例子，如果你要打开C:\报表文件夹里所有包含"Q2销售"的Excel文件，只需要用Dir先定位到完整文件名，再用Workbooks.Open打开：

Sub OpenFileByPartialName()
    Dim targetFolder As String
    Dim matchedFile As String
    targetFolder = "C:\报表文件夹\"
    ' 用*包裹部分名称，匹配所有包含该内容的xlsx文件
    matchedFile = Dir(targetFolder & "*Q2销售*.xlsx")
    
    If matchedFile <> "" Then
        Workbooks.Open targetFolder & matchedFile
    Else
        MsgBox "没找到符合条件的文件哦！"
    End If
End Sub

如果有多个匹配文件，Dir会返回第一个符合条件的；要是需要处理所有匹配文件，才需要循环，但单文件场景下上面的代码就足够了。

你的例子里，已知部分路径是C:\test\folder\TEST_03，要打开的文件是TEST_03222018.csv，这个场景下依然可以用Dir函数的通配符特性直接搞定，完全不需要那些循环和判断函数。

核心思路是把已知的部分路径+前缀，和通配符*拼接，直接获取完整的文件名：

Sub OpenFileWithPartialPathPrefix()
    Dim partialPathPrefix As String
    Dim fullFileName As String
    partialPathPrefix = "C:\test\folder\TEST_03"
    ' 拼接通配符，匹配所有以TEST_03开头的csv文件
    fullFileName = Dir(partialPathPrefix & "*.csv")
    
    If fullFileName <> "" Then
        Workbooks.Open "C:\test\folder\" & fullFileName
    Else
        MsgBox "未找到匹配的CSV文件！"
    End If
End Sub

这里Dir会自动帮你找到第一个以TEST_03开头的csv文件，只要你的前缀足够唯一，就能直接定位到目标文件，全程不需要用到InStr或者循环判断，简洁高效。

内容的提问来源于stack exchange，提问作者Mr.Riply