Список файлов по заданной маске - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д