excel - 使用excel VBA顺序读取文件夹中的文件名

Question

我正在尝试使用 VBA 读取文件夹中的近 1000 个文件。我希望代码以增量顺序选择文件名，例如 Dummy3_1、Dummy3_2、Dummy3_3 等。但是，当前代码在 Dummy3_1 之后选择 Dummy3_10。我如何使代码按顺序读取文件名。谢谢

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 & "")
    Do Until FiletoList = ""

Answer 1

Dir不保证以任何特定顺序返回文件( see here 和 here )。

要使它们按排序顺序排列，您需要将所有文件读入某种数据结构，并在将它们返回到您的列表之前对其进行排序。

正如 Matthew 所描述的，您的排序方式将取决于文件名结构和您的排序规则。