VBA 列出子文件夹中的所有文件（快速方式），无需 FileSystemObject

VBA是一种强大的编程语言，可以帮助我们自动化处理Excel的各种任务。在Excel中，有时我们需要列出某个文件夹中的所有文件，以便进行进一步的处理。通常我们会使用FileSystemObject来实现这个功能，但是今天我将介绍一种不需要FileSystemObject的快速方式。

vba
Sub ListFilesInFolder()
    Dim FolderPath As String
    Dim FileName As String
    Dim RowIndex As Integer
    
    ' 设置文件夹路径
    FolderPath = "C:\YourFolderPath\"
    
    ' 初始化行索引
    RowIndex = 1
    
    ' 循环遍历文件夹中的所有文件
    FileName = Dir(FolderPath & "*.*")
    Do While FileName <> ""
        ' 将文件名写入单元格
        Cells(RowIndex, 1).Value = FileName
        
        ' 移动到下一行
        RowIndex = RowIndex + 1
        
        ' 获取下一个文件名
        FileName = Dir()
    Loop
End Sub