使用 Excel VBA 列出特定模式的文件

Sub ListFiles()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim i As Integer

    ' 创建 FileSystemObject 对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' 获取文件夹对象
    Set objFolder = objFSO.GetFolder("C:\Temp")

    ' 初始化行数
    i = 1

    ' 遍历文件夹中的所有文件
    For Each objFile In objFolder.Files
        ' 如果文件是 Excel 文件，则将其路径输出到单元格中
        If objFSO.GetExtensionName(objFile.Path) = "xlsx" Or objFSO.GetExtensionName(objFile.Path) = "xlsm" Then
            Cells(i, 1).Value = objFile.Path
            i = i + 1
        End If
    Next objFile

    ' 释放对象
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub