VBA 中文件夹中文件名的排序列表

使用VBA编程语言可以轻松地生成一个按照文件名排序的文件列表。这个功能非常实用，特别是当你需要处理大量文件并按照一定的顺序进行操作时。下面将介绍如何使用VBA编写代码来实现这个功能，并提供一个案例供参考。

vba
Sub GenerateSortedFileList()
    Dim fso As Object
    Dim folderPath As String
    Dim filesCollection As Object
    Dim file As Object
    Dim sortedFiles As Collection
    Dim i As Integer
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath"  ' 替换为你的文件夹路径
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 获取文件夹中的所有文件
    Set filesCollection = fso.GetFolder(folderPath).Files
    ' 创建一个新的集合来存储排序后的文件名
    Set sortedFiles = New Collection
    ' 将文件名添加到集合中
    For Each file In filesCollection
        sortedFiles.Add file.Name
    Next file
    ' 对文件名进行排序
    Call SortCollection(sortedFiles)
    ' 在新的工作表中输出排序后的文件名
    With Worksheets.Add
        .Range("A1").Value = "排序后的文件名列表："
        i = 2
        For Each file In sortedFiles
            .Cells(i, 1).Value = file
            i = i + 1
        Next file
    End With
    ' 清除对象引用
    Set fso = Nothing
    Set filesCollection = Nothing
    Set sortedFiles = Nothing
End Sub
Sub SortCollection(collection As Collection)
    Dim i As Integer
    Dim j As Integer
    Dim temp As Variant
    ' 使用冒泡排序对集合进行排序
    For i = 1 To collection.Count - 1
        For j = i + 1 To collection.Count
            If collection(i) > collection(j) Then
                temp = collection(j)
                collection.Remove j
                collection.Add temp, Before:=i
            End If
        Next j
    Next i
End Sub