首页 / 新闻资讯 / Excel VBA 获取文件名：全面指南与实用技巧

Excel VBA 获取文件名：全面指南与实用技巧

发布时间：2026-08-06 作者：梁辉 阅读量：33

引言

在 Excel VBA 编程中，经常需要处理文件操作，获取文件名是基础且常见的一步。无论是自动化报表生成、批量数据导入，还是文件管理，掌握获取文件名的方法能显著提升工作效率。本文将系统讲解使用 VBA 获取文件名的多种场景和技巧。

一、获取当前工作簿文件名

最简单的情况是获取当前 Excel 工作簿的文件名。使用 ThisWorkbook.Name 返回带扩展名的文件名，如“报表.xlsx”；使用 ThisWorkbook.FullName 返回完整路径。

Sub GetCurrentFileName()
    MsgBox "文件名: " & ThisWorkbook.Name & vbCrLf & _
           "完整路径: " & ThisWorkbook.FullName
End Sub

二、获取文件夹内所有文件名

方法1：使用 Dir 函数

Dir 函数是 VBA 中经典的文件遍历方法。以下代码获取指定文件夹下所有 Excel 文件（*.xls*）的名称：

Sub ListFilesUsingDir()
    Dim folderPath As String
    Dim fileName As String
    folderPath = "C:\MyFolder\"
    fileName = Dir(folderPath & "*.xls*")
    Do While fileName <> ""
        Debug.Print fileName
        fileName = Dir() ' 获取下一个文件
    Loop
End Sub

方法2：使用 FileSystemObject (FSO)

FSO 提供更强大的文件管理功能。首先需要在 VBA 中引用“Microsoft Scripting Runtime”。

Sub ListFilesUsingFSO()
    Dim fso As FileSystemObject
    Dim folder As folder
    Dim file As file
    Dim folderPath As String
    folderPath = "C:\MyFolder\"
    Set fso = New FileSystemObject
    Set folder = fso.GetFolder(folderPath)
    For Each file In folder.Files
        Debug.Print file.Name
    Next file
End Sub

三、递归获取子文件夹中的文件名

如果需要遍历所有子文件夹，可以用递归调用。以下示例使用 FSO 递归列出所有文件：

Sub ListAllFilesRecursive(folderPath As String)
    Dim fso As FileSystemObject
    Dim folder As folder
    Dim subFolder As folder
    Dim file As file
    Set fso = New FileSystemObject
    Set folder = fso.GetFolder(folderPath)
    For Each file In folder.Files
        Debug.Print file.Path
    Next file
    For Each subFolder In folder.SubFolders
        ListAllFilesRecursive subFolder.Path
    Next subFolder
End Sub

四、高级应用：按条件筛选和获取文件名列表到工作表

筛选特定扩展名

在 Dir 中直接指定通配符，如 "*.txt"；在 FSO 中可检查 Right(file.Name, 3) = "txt"。

将文件名列表写入工作表

Sub ExportFileNamesToSheet()
    Dim folderPath As String
    Dim fileName As String
    Dim i As Long
    folderPath = "C:\MyFolder\"
    i = 1
    fileName = Dir(folderPath & "*.*")
    Do While fileName <> ""
        Cells(i, 1).Value = fileName
        i = i + 1
        fileName = Dir()
    Loop
End Sub

五、常见问题与注意事项

  • 路径末尾反斜杠：使用 Dir 时，路径末尾需加上 \，否则会导致文件未找到错误。
  • 文件顺序：Dir 返回的文件顺序与文件系统相关，不保证排序。
  • 性能：对于大量文件，FSO 比 Dir 更稳定，但速度略慢；可根据需求选择。
  • 错误处理：建议添加 On Error Resume Next 处理无权限或路径不存在的情况。

结语

通过以上方法，您可以灵活地在 Excel VBA 中获取文件名，满足日常办公自动化的需求。从简单的当前文件到复杂的递归遍历，VBA 提供了多种工具，合理运用能大幅提高工作效率。实践出真知，建议您结合具体场景编写代码并测试，进一步掌握文件操作的精髓。

相关文章