excel vba 提取文件名

在Excel VBA中，你可以使用`FSO`（FileSystemObject）对象和其相关方法来提取文件名。以下是一个简单的示例，展示如何使用VBA来获取指定目录下的所有文件名：

Sub ExtractFileNames()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim fileName As String
    Dim filePath As String
    
    ' 设置要搜索的目录路径
    filePath = "C:\YourFolder\" ' 请替换为实际的文件夹路径
    
    ' 创建FileSystemObject实例
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set folder = fso.GetFolder(filePath)
    
    ' 遍历文件夹中的所有文件
    For Each file In folder.Files
        ' 提取文件名
        fileName = file.Name
        ' 在这里处理或输出文件名，例如打印到 Immediate Window 或写入到另一个范围
        Debug.Print fileName
    Next file
    
    ' 清理对象
    Set file = Nothing
    Set folder = Nothing
    Set fso = Nothing
End Sub

执行这段代码后，它会在指定文件夹中查找所有文件，并打印出每个文件的名称。