VBA如何基于日期循环遍历对应命名文件夹处理剩余未处理数据

核心实现逻辑 #

• 先将你已获取到的上次更新日期字符串转为Date类型变量
• 确认处理截止的基准日期：默认取系统今日日期，也可支持手动输入
• 从上次更新日期的后一天开始，按天循环至基准日期
• 每次循环将当前日期转为和文件夹命名规则一致的字符串，拼接为完整文件夹路径
• 校验文件夹是否存在，存在则调用原有单文件夹处理逻辑，不存在直接跳过即可

可直接复用的代码示例 #

Sub 批量处理待更新文件夹()
    Dim 上次更新日期 As Date, 基准日期 As Date, 当前遍历日期 As Date
    Dim 根目录路径 As String, 当前文件夹路径 As String
    Dim 汇总数据表 As Worksheet
    
    ' ========== 此处修改为你的实际配置参数 ==========
    根目录路径 = "C:\你的日度数据存放根文件夹\" ' 末尾要加反斜杠
    Set 汇总数据表 = ThisWorkbook.Worksheets("你的汇总表表名") ' 替换为你存数据的工作表名称
    ' ==============================================
    
    ' 1. 读取上次更新日期（示例是取A列最后一行的日期，可替换为你自己的获取逻辑）
    上次更新日期 = CDate(汇总数据表.Cells(汇总数据表.Rows.Count, "A").End(xlUp).Value)
    
    ' 2. 确认处理截止日期
    If MsgBox("是否使用今日作为处理截止日期？", vbYesNo + vbQuestion) = vbYes Then
        基准日期 = Date
    Else
        On Error Resume Next
        基准日期 = CDate(InputBox("请输入截止日期，格式示例：2021-10-09"))
        ' 校验输入合法性
        If Err.Number <> 0 Or 基准日期 < 上次更新日期 Then
            MsgBox "输入的日期格式错误或早于上次更新日期，请重新运行", vbCritical
            Exit Sub
        End If
        On Error GoTo 0
    End If
    
    ' 3. 按天循环遍历所有待处理日期
    当前遍历日期 = 上次更新日期 + 1
    Do While 当前遍历日期 <= 基准日期
        ' 拼接和文件夹命名格式一致的路径，如果你文件夹是其他格式比如20211009，就把格式字符串改成"YYYYMMDD"
        当前文件夹路径 = 根目录路径 & Format(当前遍历日期, "YYYY-MM-DD") & "\"
        
        ' 判断文件夹是否存在
        If Dir(当前文件夹路径, vbDirectory) <> "" Then
            ' 调用你原有处理单个文件夹的逻辑，把当前路径传进去即可
            Call 你原来的单文件夹处理过程名(当前文件夹路径)
            Debug.Print "已完成处理：" & 当前文件夹路径
        Else
            Debug.Print "无对应日期文件夹，已跳过：" & 当前文件夹路径
        End If
        
        ' 日期加1，进入下一天的判断
        当前遍历日期 = 当前遍历日期 + 1
    Loop
    
    MsgBox "所有待处理日期文件夹已执行完毕", vbInformation
End Sub

' 你原来的单文件夹处理代码，修改为接收文件夹路径参数的子过程即可，示例：
Sub 你原来的单文件夹处理过程名(传入的文件夹路径 As String)
    ' 这里直接放你之前写好的单个文件夹提取数据的代码即可，不用大改
End Sub

注意事项 #

• 如果你的文件夹命名格式不是YYYY-MM-DD，只需修改Format(当前遍历日期, "YYYY-MM-DD")里的格式参数和你的实际命名规则匹配即可
• 节假日、周末等无对应数据文件夹的日期，代码会自动跳过，不会抛出异常
• 你原有处理单个文件夹的逻辑不需要重写，只需要修改为接收文件夹路径作为入参的子过程就行

内容的提问来源于stack exchange，提问作者Dan Andrei Sica