如何用VBA打开名称含未知日期的工作簿并激活其窗口

我来帮你搞定这个需求～核心思路是遍历当前目录下的Excel文件，筛选出符合「Seats + 日期」命名规则的文件，不用硬编码日期就能打开目标工作簿，具体实现代码和解释如下：

完整VBA代码 #

Sub OpenSeatsWorkbookWithDate()
    Dim src As Workbook
    Dim targetFilePath As String
    Dim exportDate As String
    
    ' 查找当前目录下符合"Seats *.xlsx"格式的文件
    targetFilePath = Dir(ActiveWorkbook.Path & "\Seats *.xlsx")
    
    ' 判断是否找到目标文件
    If targetFilePath <> "" Then
        ' 打开找到的工作簿（参数True,True表示只读打开）
        Set src = Workbooks.Open(ActiveWorkbook.Path & "\" & targetFilePath, True, True)
        
        ' 激活该工作簿窗口（直接用对象激活，不用硬编码文件名）
        src.Activate
        
        ' 提取文件名中的日期（更灵活的方式，适配不同长度的日期格式）
        ' 先拆分文件名，去掉"Seats "前缀和".xlsx"后缀
        exportDate = Replace(Split(targetFilePath, " ")(1), ".xlsx", "")
        
        ' 定位到M15单元格
        src.Range("M15").Select
        
        ' 可选：输出提取到的日期，方便验证
        MsgBox "提取到的日期：" & exportDate
    Else
        ' 如果没找到符合条件的文件，给出提示
        MsgBox "未找到名称包含日期的Seats工作簿！"
    End If
End Sub

关键细节解释 #

• 用Dir函数匹配文件：Dir(ActiveWorkbook.Path & "\Seats *.xlsx")中的*是通配符，会匹配所有以Seats 开头、.xlsx结尾的文件，不管中间的日期是什么格式。
• 通过工作簿对象激活窗口：不用像示例里那样硬编码文件名调用Windows("xxx").Activate，直接用src.Activate更可靠，因为我们已经把打开的工作簿存在src变量里了。
• 灵活提取日期：用Split拆分文件名拿到日期部分，再用Replace去掉后缀，比固定位置的Mid更适配不同长度的日期（比如2018-1-02和2024-10-15都能正确提取）。
• 容错处理：加入了文件未找到的提示，避免代码报错。

如果目录下存在多个符合条件的文件，这段代码会打开第一个找到的文件。如果需要处理多个文件，可以在Dir循环里遍历所有匹配的文件哦～

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