vba获取文件夹中文件列表

在VBA（Visual Basic for Applications）中，你可以使用`FileSystemObject`类来获取指定文件夹中的文件列表。以下是一个简单的示例代码片段：

Sub GetFilesInFolder()
    Dim fso As Object ' FileSystemObject实例
    Dim folderPath As String ' 需要遍历的文件夹路径
    Dim files() As String ' 存放文件名的数组

    ' 创建FileSystemObject实例
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath" ' 请替换为你需要的文件夹路径

    ' 检查路径是否存在
    If Not fso.FolderExists(folderPath) Then
        MsgBox "文件夹不存在!"
        Exit Sub
    End If
    
    ' 获取文件夹内容
    Set fldr = fso.GetFolder(folderPath)
    files = fldr.Files ' 获取所有文件（包括子目录下的）

    ' 输出或处理文件列表
    For Each file In files
        Debug.Print file.Name ' 这里只是打印出文件名，你可以根据需要修改这部分代码
    Next file

    ' 清理对象
    Set fso = Nothing
End Sub

运行此代码后，它会列出指定文件夹中的所有文件名。记得将`folderPath`变量替换为实际的文件夹路径。