如何用Excel VBA按时间范围筛选文件夹文件并统计数量？

你的原代码存在两个关键问题：一是Dir函数返回的是文件名字符串，无法直接调用DateCreated属性；二是遍历所有文件的方式在文件量极大时效率极低。下面提供两种高效的解决方案，直接按时间范围过滤文件，无需遍历全部文件：

方案一：使用WMI查询（推荐，效率最高） #

WMI可以直接通过类SQL语句筛选指定时间范围内创建的文件，避免遍历所有文件，适合海量文件场景：

Sub CountRecentFiles_WMI()
    Dim wmi As Object
    Dim files As Object
    Dim folderPath As String
    Dim yesterday As String
    Dim todayEnd As String
    Dim count As Long
    
    folderPath = "C:\MyReports\"
    ' 转换为WMI识别的日期格式
    yesterday = Format(DateAdd("d", -1, Date), "yyyyMMdd") & "000000.000000+000"
    todayEnd = Format(Date, "yyyyMMdd") & "235959.999999+000"
    
    Set wmi = GetObject("winmgmts:")
    ' 查询指定文件夹中创建时间在昨日到今日之间的文件
    Set files = wmi.ExecQuery( _
        "SELECT * FROM CIM_DataFile WHERE Drive='C:' AND Path='\\MyReports\\' " & _
        "AND CreationDate >= '" & yesterday & "' AND CreationDate <= '" & todayEnd & "'")
    
    count = files.count
    MsgBox count
    
    Set files = Nothing
    Set wmi = Nothing
End Sub

注意：路径格式需要调整，Drive是盘符，Path是文件夹的反斜杠转义格式，比如C:\MyReports\对应Drive='C:'和Path='\\MyReports\\'。

方案二：使用FileSystemObject（兼容旧版本Office） #

如果无法使用WMI，可通过FileSystemObject遍历文件，结合时间判断，比原错误写法更可靠：

Sub CountRecentFiles_FSO()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim folderPath As String
    Dim yesterday As Date
    Dim today As Date
    Dim count As Long
    
    folderPath = "C:\MyReports\"
    yesterday = DateAdd("d", -1, Date)
    today = Date + 1 ' 设为次日0点，避免遗漏今日晚些时候创建的文件
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderPath)
    
    count = 0
    For Each file In folder.Files
        ' 判断文件创建日期是否在昨日0点到今日24点之间
        If file.DateCreated >= yesterday And file.DateCreated < today Then
            count = count + 1
        End If
    Next file
    
    MsgBox count
    
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

原代码错误说明 #

1. Dir函数返回的是文件名字符串，不是文件对象，无法直接访问DateCreated属性，必须通过FileSystemObject或WMI获取文件属性。
2. For Each file In Dir(MyFolder)的写法错误，Dir不是集合，正确遍历Dir的方式是用Do While循环：

' 示例：正确使用Dir遍历文件名
Dim fileName As String
fileName = Dir(folderPath & "*.*")
Do While fileName <> ""
    ' 处理文件
    fileName = Dir
Loop

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