Как сделать выбор нескольких файлов из папки

[lioon]

Использую такой код для выбора файлов и записи их значений в текущую ячейку.
Всё хорошо пока файлов несколько штук, но когда нужно добавить 20 файлов из папки начинаются ошибки или/и нервный тик.

Подскажите каким образом можно выбрать сразу несколько файлов в папке и записать их значения в столбец по порядку?

Sub показать_файл() ' Выбираем файл из папки
 Dim sFileName As String, sNewFileName, fio As String
   Dim objFSO As Object, objFile As Object
  
    ИмяФайла= GetFilePath(, "*", , "*") 
      If ИмяФайла= "" Then Exit Sub    
   
   ActiveCell.Value = ИмяФайла
     
End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл", _
                     Optional ByVal InitialPath As String = "W:\", _
                     Optional ByVal FilterDescription As String = "Книги Excel", _
                     Optional ByVal FilterExtention As String = "*.xls*") As String
   On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1): PS = Application.PathSeparator
    End With
End Function

[DiemonStar]

записать их значения в столбец по порядку

А что Вы понимаете под "значением" файла? Его содержимое или имя (как в Вашем примере)?

[EducatedFool]

Вот вы где взяли эту функцию GetFilePath?
У меня же на сайте: http://excelvba.ru/code/GetFileOrFolderPath

А если ту же статью пролистать чуточку вниз, - можно найти и нужную вам функцию, возвращающую список файлов:

Function GetFilenamesCollection(Optional ByVal Title As String = "Выберите файлы для обработки", _
                             Optional ByVal InitialPath As String = "c:\") As FileDialogSelectedItems
    ' функция выводит диалоговое окно выбора нескольких файлов с заголовком Title,
   ' начиная обзор диска с папки InitialPath
   ' возвращает массив путей к выбранным файлам, или пустую строку в случае отказа от выбора
   With Application.FileDialog(3) ' msoFileDialogFilePicker
       .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show <> -1 Then Exit Function
        Set GetFilenamesCollection = .SelectedItems
    End With
End Function

Там же есть пример использования:

Sub ПримерИспользования_GetFilenamesCollection()
    Dim СписокФайлов As FileDialogSelectedItems
    Set СписокФайлов = GetFilenamesCollection("Заголовок окна", ThisWorkbook.Path)   ' выводим окно выбора
    If СписокФайлов Is Nothing Then Exit Sub  ' выход, если пользователь отказался от выбора файлов

   For Each File In СписокФайлов
        msgbox File ' выводим сообщение с именем очередного файла
    Next
End Sub

[lioon]

Спасибо! На ваш сайт и опирался )