Вот несколько способов составить список файлов в папке с помощью VBA (Visual Basic для приложений) в Microsoft Excel:

Метод 1: использование FileSystemObject

Sub ListFilesUsingFileSystemObject()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\Path\To\Folder")

    For Each file In folder.Files
        Debug.Print file.Name
    Next file

    Set fso = Nothing
    Set folder = Nothing
    Set file = Nothing
End Sub

Метод 2. Использование функции Dir

Sub ListFilesUsingDir()
    Dim fileName As String

    fileName = Dir("C:\Path\To\Folder\*.*", vbNormal)

    Do While fileName <> ""
        Debug.Print fileName
        fileName = Dir
    Loop
End Sub

Метод 3: использование объекта FileDialog

Sub ListFilesUsingFileDialog()
    Dim fileDialog As FileDialog
    Dim fileName As Variant

    Set fileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    fileDialog.AllowMultiSelect = False

    If fileDialog.Show = -1 Then
        For Each fileName In fileDialog.SelectedItems
            Debug.Print Dir(fileName & "\*.*", vbNormal)
        Next fileName
    End If

    Set fileDialog = Nothing
End Sub

Эти методы позволяют просматривать файлы в указанной папке с помощью VBA. Выберите метод, который лучше всего соответствует вашим потребностям.