如何使用VBA的LIKE运算符匹配并打开Excel工作簿？

要打开当前工作簿路径下名称包含“Health”（不区分大小写）的Excel文件，你需要先遍历路径下的所有Excel文件，获取文件名（字符串）后再用LIKE运算符筛选匹配项，具体代码如下：

Sub OpenWorkbooksWithHealth()
    Dim filePath As String
    Dim fileName As String
    
    ' 定位到当前工作簿所在的文件夹路径
    filePath = ThisWorkbook.Path & "\"
    
    ' 获取路径下第一个Excel格式的文件（支持xls、xlsx、xlsm等）
    fileName = Dir(filePath & "*.xls*")
    
    ' 循环遍历所有匹配的文件
    Do While fileName <> ""
        ' 不区分大小写判断文件名是否包含"Health"
        If UCase(fileName) Like "*HEALTH*" Then
            ' 打开符合条件的工作簿
            Workbooks.Open Filename:=filePath & fileName
        End If
        ' 获取下一个文件
        fileName = Dir
    Loop
End Sub

关键说明 #

• Dir函数用于遍历指定路径下的文件，*.xls*可以匹配所有Excel格式的文件
• 通过UCase将文件名转为大写后，和*HEALTH*用LIKE匹配，实现不区分大小写的关键词筛选（不管文件名是healthdoc、HealthAssess还是HEALTHreport都能匹配）
• 循环会遍历路径下所有符合格式的文件，逐一判断并打开匹配的工作簿

内容的提问来源于stack exchange，提问作者Mihir Bhadauria