VBA在EXCEL遍历文件夹内包含的文件及文件名

以下是VBA代码，可以遍历指定文件夹内的所有文件及其文件名：

Sub TraverseFolder()

    Dim fso As Object
    Dim fld As Object
    Dim file As Object
    Dim path As String
    
    '设置要遍历的文件夹路径
    path = "C:\TestFolder\"
    
    '创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '获取指定路径下的文件夹对象
    Set fld = fso.GetFolder(path)
    
    '遍历文件夹内的文件
    For Each file In fld.Files
        Debug.Print file.Name
    Next file
    
End Sub

在上面的代码中，我们首先创建了一个文件系统对象（fso），然后使用该对象的GetFolder方法获取指定路径下的文件夹对象（fld）。接着，我们可以使用For Each循环遍历文件夹内的所有文件（file），并使用Debug.Print语句输出每个文件的文件名。你可以根据自己的需要，修改代码以实现更多的功能