如何自动查找文件名中与Excel指定时间相近的目标文件？

针对你要匹配Excel时间与文件名时间的需求，除了正则+时间窗口的基础思路，还有不少更高效、更省心的优化方案，分场景梳理如下：

一、先把基础环节做精准 #

不管用什么方案，第一步都是把时间转成可计算的数值，避免字符串比对的混乱：

• 对Excel里的时间：如果是17:40这种文本格式，直接拆分小时和分钟转成当日总分钟数（比如17*60+40=1060）；如果是日期时间格式，用公式=HOUR(A1)*60+MINUTE(A1)一键转换。
• 对文件名里的时间：用正则\d{2}_\d{2}_\d{2}提取后，同样转成总分钟数（秒数可根据需求忽略或加入计算）。

二、更优替代方案 #

1. 预构建时间索引（适合大文件量场景） #

如果文件夹里有几百上千个文件，别逐个遍历比对，先做一次预处理：

• 把所有文件名里的时间提取出来，转成总分钟数，和文件路径一起存在一个列表里，再按时间排序。
• 之后对Excel里的每个目标时间，用二分查找快速定位落在[目标时间-10, 目标时间+15]区间内的文件，比逐个遍历效率提升数倍。

2. 用批量工具简化流程（少写冗余代码） #

Python实现（灵活高效）

结合pandas读Excel、os遍历文件、datetime处理时间，核心代码片段：

import pandas as pd
import os
import re
from datetime import datetime

# 读取Excel中的目标时间并转换
df = pd.read_excel("时间列表.xlsx")
# 假设时间列名为"目标时间"，格式为"HH:MM"
df["总分钟数"] = df["目标时间"].apply(
    lambda x: datetime.strptime(x, "%H:%M").hour * 60 + datetime.strptime(x, "%H:%M").minute
)

# 遍历文件夹匹配文件
匹配结果 = []
目标文件夹 = "你的文件路径"
for 文件名 in os.listdir(目标文件夹):
    时间匹配 = re.search(r"(\d{2})_(\d{2})_(\d{2})", 文件名)
    if 时间匹配:
        时, 分, 秒 = map(int, 时间匹配.groups())
        文件总分钟数 = 时 * 60 + 分
        # 检查是否在10-15分钟窗口内
        for 目标分钟 in df["总分钟数"]:
            差值 = abs(文件总分钟数 - 目标分钟)
            if 10 <= 差值 <= 15:
                匹配结果.append((文件名, f"对应目标时间: {df.loc[df['总分钟数']==目标分钟, '目标时间'].values[0]}"))

# 输出或保存结果
for 项 in 匹配结果:
    print(项)

Excel VBA实现（不用切换工具）

如果习惯在Excel里操作，直接写宏完成遍历和匹配：

Sub 匹配相近时间文件()
    Dim 目标文件夹 As String, 文件名 As String
    Dim 正则 As Object, 时间匹配 As Object
    Dim 目标时间列 As Range, 单元格 As Range
    Dim 目标分钟 As Integer, 文件分钟 As Integer
    
    Set 正则 = CreateObject("VBScript.RegExp")
    正则.Pattern = "(\d{2})_(\d{2})_(\d{2})"
    
    目标文件夹 = "你的文件夹路径"
    Set 目标时间列 = ThisWorkbook.Sheets("Sheet1").Range("A2:A100") ' 假设时间在A列
    
    文件名 = Dir(目标文件夹 & "\*.csv")
    Do While 文件名 <> ""
        Set 时间匹配 = 正则.Execute(文件名)
        If 时间匹配.Count > 0 Then
            文件分钟 = CInt(时间匹配(0).SubMatches(0)) * 60 + CInt(时间匹配(0).SubMatches(1))
            For Each 单元格 In 目标时间列
                If 单元格.Value <> "" Then
                    目标分钟 = Hour(单元格.Value) * 60 + Minute(单元格.Value)
                    If Abs(文件分钟 - 目标分钟) >= 10 And Abs(文件分钟 - 目标分钟) <= 15 Then
                        ' 把匹配结果写入B列
                        单元格.Offset(0, 1).Value = 单元格.Offset(0, 1).Value & 文件名 & ";"
                    End If
                End If
            Next 单元格
        End If
        文件名 = Dir
    Loop
End Sub

3. 跳过正则的小技巧（文件名格式固定时） #

如果文件名的时间位置完全固定（比如总是倒数第3个下划线分隔的字段），直接用字符串拆分代替正则，比如：

# 假设文件名格式是XXXXX_17_43_22_Timecheck.csv
时间部分 = 文件名.split("_")[-3]
时, 分, 秒 = map(int, 时间部分.split("_"))

这种方式比正则更快，也更不容易出现匹配错误。

三、关键注意点 #

• 统一时间精度：如果需要精确到秒，就把秒数也加入总数值计算（比如总秒数=时3600+分60+秒）。
• 异常处理：对Excel里的无效时间、文件名里没有时间的情况，要加判断跳过，避免程序报错。
• 重复匹配：如果多个文件对应同一个目标时间，根据需求选择保留全部或去重。

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