按顺序排列Excel VBA文件夹标题

Dim fso As Object
Dim folderPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
folderPath = "目标文件夹路径"

Dim folder As Object
Set folder = fso.GetFolder(folderPath)

Dim fileArray() As String
Dim i As Integer
i = 0

For Each file In folder.Files
    fileArray(i) = file.Name
    i = i + 1
Next file

Dim temp As String

For i = LBound(fileArray) To UBound(fileArray) - 1
    For j = i + 1 To UBound(fileArray)
        If fileArray(i) > fileArray(j) Then
            temp = fileArray(i)
            fileArray(i) = fileArray(j)
            fileArray(j) = temp
        End If
    Next j
Next i

Sub SortFolderTitles()
    Dim fso As Object
    Dim folderPath As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    folderPath = "目标文件夹路径"
    
    Dim folder As Object
    Set folder = fso.GetFolder(folderPath)
    
    Dim fileArray() As String
    Dim i As Integer
    i = 0
    
    For Each file In folder.Files
        fileArray(i) = file.Name
        i = i + 1
    Next file
    
    Dim temp As String
    
    For i = LBound(fileArray) To UBound(fileArray) - 1
        For j = i + 1 To UBound(fileArray)
            If fileArray(i) > fileArray(j) Then
                temp = fileArray(i)
                fileArray(i) = fileArray(j)
                fileArray(j) = temp
            End If
        Next j
    Next i
    
    ' 输出排序后的文件标题
    For i = LBound(fileArray) To UBound(fileArray)
        Debug.Print fileArray(i)
    Next i
End Sub