编写VBA代码打开含日期及随机后缀字符的每日工作簿

针对你需要打开的FileName_YYYY_MM_DD_(随机末尾数字)格式工作簿，修改原代码如下，通过通配符匹配日期结构+随机后缀，同时遍历所有符合条件的文件：

Sub OpenDailyWorkbooks()
    Dim sPath As String, sFile As String
    Dim wb As Workbook
    
    ' 替换成你的文件实际路径，注意末尾必须加反斜杠
    sPath = "C:\Your\Target\Folder\"
    
    ' 用通配符匹配格式：FileName_4位年份_2位月份_2位日期_任意后缀.xlsx
    ' ?代表单个字符，*代表任意长度字符，确保只匹配符合日期结构的文件
    sFile = Dir(sPath & "FileName_????_??_??_*.xlsx")
    
    ' 循环遍历所有符合条件的文件并打开
    Do While sFile <> ""
        Set wb = Workbooks.Open(sPath & sFile)
        
        ' 这里可以添加打开文件后的操作代码（比如数据提取、格式调整等）
        
        ' 获取下一个匹配的文件
        sFile = Dir
    Loop
End Sub

关键说明 #

• 路径末尾必须加\，否则会导致文件路径拼接错误
• 通配符????精准匹配4位年份，??匹配月份和日期，避免误打开不符合日期格式的同名文件
• 如果你的文件格式不是xlsx，把代码里的.xlsx改成对应后缀（比如.xls、.xlsm）
• 若只需要打开当天日期的文件，可以把通配符替换成FileName_ & Format(Date, "yyyy_mm_dd") & "_*.xlsx"，这样只会匹配当天的文件

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