vba批量获取文件名

以下是 VBA 中批量获取文件名的代码示例：

Sub GetFileNames()
    Dim folderPath As String
    Dim fileName As String
    Dim i As Integer
    
    '设置文件夹路径
    folderPath = "C:\Users\example\Documents\"
    
    '获取文件夹中的所有文件名
    fileName = Dir(folderPath & "*.*")
    Do While fileName <> ""
        Debug.Print fileName
        fileName = Dir()
    Loop
End Sub

在上面的代码中，我们首先设置了要获取文件名的文件夹路径，然后使用 `Dir()` 函数获取该文件夹中的第一个文件名，打印出来后继续使用 `Dir()` 函数获取下一个文件名，直到获取完所有文件的文件名。你可以根据需要修改文件夹路径，以及对文件名的处理方式。