如何让Excel宏动态调用包含指定字符的打开工作簿？

每天都会下载文件，但文件名每日都会变化（例：第1天文件名：miss123_1，第2天：miss349_1）。能否让宏查找标题包含特定字符的打开文件，而非精确匹配文件名？目前的临时办法是每日修改宏中的工作簿名称，但肯定有实现动态匹配的方法。尝试的无效代码如下：

Windows(Contains("miss","_1",".xlsx")).Activate

VBA中没有直接支持Contains函数这样调用Windows对象的写法，要实现动态匹配包含特定字符的打开工作簿，需要遍历所有已打开的工作簿并逐一判断：

匹配多关键字的工作簿 #

如果需要文件名同时包含miss、_1和.xlsx，可以使用以下代码：

Sub ActivateTargetWorkbook()
    Dim wb As Workbook
    ' 遍历所有已打开的工作簿
    For Each wb In Workbooks
        ' 检查文件名是否同时包含所有指定关键字
        If InStr(wb.Name, "miss") > 0 And InStr(wb.Name, "_1") > 0 And InStr(wb.Name, ".xlsx") > 0 Then
            wb.Activate ' 激活匹配的工作簿
            Exit Sub ' 找到第一个匹配项后退出循环
        End If
    Next wb
    ' 未找到匹配项时弹出提示
    MsgBox "未找到符合条件的工作簿"
End Sub

简化匹配规则 #

如果不需要严格匹配.xlsx后缀（打开的工作簿名称可能不显示后缀），可以简化判断条件：

Sub ActivateTargetWorkbook()
    Dim wb As Workbook
    For Each wb In Workbooks
        If InStr(wb.Name, "miss") > 0 And InStr(wb.Name, "_1") > 0 Then
            wb.Activate
            Exit Sub
        End If
    Next wb
    MsgBox "未找到符合条件的工作簿"
End Sub

代码说明 #

• InStr函数用于检测字符串是否包含指定子串，返回值大于0表示找到匹配
• 遍历Workbooks集合可获取所有已打开的工作簿
• 找到第一个匹配项后立即退出循环，避免无效遍历

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