[URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57      Sub   Main()          Dim   arr   As   Variant          arr = GetFileDialog()          If   IsArray(arr)   Then              Dim   vFile   As   Variant              For   Each   vFile   In   arr                  JobFile vFile              Next          End   If    End   Sub    '    Sub   JobFile(  ByVal   vFile   As   String  )          Dim   wb   As   Workbook          Set   wb = Workbooks.Open(vFile)          With   wb              With   .Sheets(1)                  .Rows(1).Delete              End   With          End   With          wb.Close   True    End   Sub    '    Function   GetFileDialog()   As   Variant          Dim   arr   As   Variant          Dim   oFD   As   FileDialog          Dim   lf   As   Long          'назначаем переменной ссылку на экземпляр диалога          Set   oFD = Application.FileDialog(msoFileDialogFilePicker)          With   oFD   'используем короткое обращение к объекту              .AllowMultiSelect =   True              .Title =   "Выбрать фильтр"   'заголовок окна диалога              .Filters.Clear   'очищаем установленные ранее типы файлов              .Filters.Add   "Excel files"  ,   "*.xlsb;*.xlsm;*.xlsx;*.xls"  , 1   'добавляем возможность выбора текстовых файлов              .FilterIndex = 1   'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)              .InitialFileName = ThisWorkbook.Path   'назначаем папку отображения и имя файла по умолчанию              .InitialView = msoFileDialogViewDetails   'вид диалогового окна(доступно 9 вариантов)                  'msoFileDialogViewDetails                  'msoFileDialogViewLargeIcons                  'msoFileDialogViewList                  'msoFileDialogViewPreview                  'msoFileDialogViewProperties                  'msoFileDialogViewSmallIcons                  'msoFileDialogViewThumbnail                  'msoFileDialogViewTiles                  'msoFileDialogViewWebView              If   oFD.Show = 0   Then              Else                  ReDim   arr(0   To   .SelectedItems.Count - 1)                  'цикл по коллекции выбранных в диалоге файлов                  For   lf = 1   To   .SelectedItems.Count                      arr(lf - (1 - LBound(arr, 1))) = .SelectedItems(lf)                  Next              End   If          End   With                   GetFileDialog = arr    End   Function