Список файлов по заданной маске - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день, подскажите, везде искал ничего подобного не смог найти. Хочу реализовать следующий макрос: 1. Есть файл на Листе1 задаю шапку в первой строке. (к примеру ячейка А1 Название B1 Описание и тд) 2. Потом запускаю макрос, выбираю нужный каталог и идет поиск по всем файлам ексель и ищет такую же шапку как я задал на Листе1, далее выводит файлы у которых шапки совпадают на Лист2 где выводит имя файла и путь к нему. Спасибо

Решение задачи: «Список файлов по заданной маске»

textual
Листинг программы
Sub абырвалг()
    Dim sFolder As String
    Dim sFiles As String
    Dim arr() As String
    Dim iFls As Integer
    Dim sFilesShablon As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
   
    sFilesShablon = Trim(Sheets(1).Range("A1"))
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    sFiles = Dir(sFolder & "*" & sFilesShablon & "*.xls*")
    iFls = 0
    ReDim arr(iFls)
    Do While sFiles <> ""
        ReDim Preserve arr(iFls)
        arr(iFls) = sFolder & sFiles
        sFiles = Dir
        iFls = iFls + 1
    Loop
    For iFls = 0 To UBound(arr)
        Sheets(2).Cells(iFls + 1, 1) = arr(iFls)
    Next iFls
    Sheets(2).Activate
End Sub

Оцени полезность:

11   голосов , оценка 4.364 из 5
Похожие ответы