Помогите с поиском,pls

[Rik3D]

Как создать процедуру поиска файлов *.xls в заданной паке и вывести имена найденных файлов на лист в Exel.

[Igor_123]

Тебе fso о чем-то говорит?
А с листом работать умеешь?

[Димитрий]

Код: Выделить всё

With Application.FileSearch
    .NewSearch
    .LookIn = "c:\"
    .Filename = "*.xls"
    .SearchSubFolders = False
    .Execute
    For i = 1 To .FoundFiles.Count
        Cells(i, 1) = .FoundFiles(i)
    Next
End With

[Rik3D]

Дмитрий, большое спасибо!!!