如何让Excel VBA按递增顺序读取文件夹中的序列命名文件？

问题背景 #

我太懂你遇到的这个坑了！用VBA的Dir函数读取带数字后缀的文件时，它默认是按字典序排序的——计算机只会逐个字符比大小，Dummy3_10里的第一个字符1比Dummy3_2里的2小，自然就会排在2前面，完全不管数字实际的大小顺序。

解决方案思路 #

要实现你想要的数字递增读取，得绕开Dir的默认排序逻辑，换个思路来：

• 先把所有目标文件名一次性收集到数组里
• 提取每个文件名里的数字部分，以此为依据对数组排序
• 最后遍历排序好的数组，按顺序处理文件

修改后的完整代码 #

Sub ReadFilesInNumericOrder()
    Dim FileDir As String
    Dim FiletoList As String
    Dim fileNameArr() As String
    Dim i As Integer, j As Integer
    Dim tempName As String
    Dim num1 As Integer, num2 As Integer
    
    Application.ScreenUpdating = False
    
    ' 选择目标文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Please select a folder"
        .ButtonName = "Pick Folder"
        If .Show = 0 Then
            MsgBox "Nothing was selected"
            Exit Sub
        Else
            FileDir = .SelectedItems(1) & "\"
        End If
    End With
    
    ' 第一步：把所有匹配格式的文件名收集到数组
    FiletoList = Dir(FileDir & "Dummy3_*.xl*") ' 仅匹配Dummy3_开头的Excel文件，可按需调整后缀
    i = 0
    Do Until FiletoList = ""
        ReDim Preserve fileNameArr(i)
        fileNameArr(i) = FiletoList
        i = i + 1
        FiletoList = Dir()
    Loop
    
    ' 第二步：按文件名中的数字部分对数组排序
    For i = LBound(fileNameArr) To UBound(fileNameArr) - 1
        For j = i + 1 To UBound(fileNameArr)
            ' 拆分文件名提取数字部分，转成整数用于比较
            num1 = CInt(Split(fileNameArr(i), "_")(1))
            num2 = CInt(Split(fileNameArr(j), "_")(1))
            ' 如果前一个数字更大，交换两个文件名的位置
            If num1 > num2 Then
                tempName = fileNameArr(i)
                fileNameArr(i) = fileNameArr(j)
                fileNameArr(j) = tempName
            End If
        Next j
    Next i
    
    ' 第三步：遍历排序后的数组，按顺序处理文件
    For i = LBound(fileNameArr) To UBound(fileNameArr)
        ' 这里替换成你实际处理文件的代码，比如打开、读取数据等
        Debug.Print "Processing: " & FileDir & fileNameArr(i) ' 示例：打印文件名到立即窗口
        ' 示例打开文件的代码：
        ' Workbooks.Open FileDir & fileNameArr(i)
        ' ... 你的业务逻辑 ...
        ' ActiveWorkbook.Close SaveChanges:=False
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "All files processed in correct order!"
End Sub

关键细节说明 #

• 文件名匹配：Dir(FileDir & "Dummy3_*.xl*") 只筛选以Dummy3_开头的Excel文件，如果你是其他类型文件（比如.txt），直接修改通配符即可。
• 数字提取：Split(fileNameArr(i), "_")(1) 是按_拆分文件名，取第二部分的数字；如果你的文件名分隔符是-或者其他，只要替换Split里的分隔符就行。
• 排序效率：这里用的是冒泡排序，对于1000个文件来说完全够用；如果后续文件数量暴增，也可以替换成快速排序等更高效的算法。

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