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

您好！根据您的问题，您想要使用 Excel VBA 列出特定模式的文件。以下是我的回答：

在 Excel VBA 中，您可以使用 FileSystemObject 对象来列出特定模式的文件。以下是一个示例代码，它将列出指定文件夹中所有的 Excel 文件：

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

在上面的代码中，我们首先创建了一个 FileSystemObject 对象，然后使用 GetFolder 方法获取指定文件夹的对象。接着，我们使用 For Each 循环遍历文件夹中的所有文件，如果文件是 Excel 文件，则将其路径输出到单元格中。最后，我们释放了所有对象。

希望这个回答能够帮助您解决问题。如果您有其他问题，请随时问我。