Как импортировать несколько имен файлов в ячейки в Excel?

Предположим, у вас есть папка с сотнями файлов, и теперь вы хотите импортировать эти имена файлов в ячейки рабочего листа. Копирование и вставка одного за другим займет много времени, в этой статье я расскажу о некоторых быстрых приемах, которые помогут вам импортировать несколько имен файлов из папки в рабочий лист.

Импортируйте несколько имен файлов в ячейки листа с кодом VBA

Импортируйте несколько имен файлов в ячейки рабочего листа с помощью Kutools for Excel

Импортируйте несколько имен файлов в ячейки листа с кодом VBA

Следующий код VBA может помочь вам импортировать имена файлов, расширения файлов и имя папки в ячейки рабочего листа, выполните следующие действия:

1. Запустите новый рабочий лист, в который вы хотите импортировать имена файлов.

2. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

3. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: импортировать несколько имен файлов в ячейки рабочего листа

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Затем нажмите F5 ключ для выполнения этого кода, и в появившемся окне Обзор выберите папку, в которую вы хотите импортировать форму имен файлов, см. снимок экрана:

5, Затем нажмите OK кнопку, и вы получите следующий результат:

Внимание： Если в вашей конкретной папке есть подпапки, имена файлов в подпапках не будут импортированы.

Импортируйте несколько имен файлов в ячейки рабочего листа с помощью Kutools for Excel

Если вам нужно импортировать имена файлов как в папку, так и во вложенные папки, не беспокойтесь, Kutools for ExcelАвтора Список имен файлов утилиту, вы можете легко импортировать все имена файлов в определенной папке, включая подпапки.

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс> Импорт Экспорт > Список имен файлов, см. снимок экрана:

2. В Список имен файлов диалоговом окне выполните следующие операции:

(1.) Щелкните кнопка для выбора папки с файлами, которые вы хотите импортировать;

(2.) Проверить Включить файлы в подкаталоги импортировать имена файлов вложенных папок;

(3.) Укажите тип файлов, которые вы хотите импортировать, в Тип файлов раздел;

(4.) Выберите единицу размера файла для отображения из Единица размера файла раздел;

(5.) Если вы хотите добавить гиперссылки на имена файлов и папки, установите флажок Создать гиперссылки опцию.

3. После завершения настроек нажмите OK кнопку, и имена файлов в папке и подпапках импортируются в новый рабочий лист, как показано на следующем снимке экрана:

Советы: Если вы просто хотите импортировать файлы одного указанного типа из определенной папки, вы можете проверить Указывать вариант в Список имен файлов диалоговое окно и введите в него расширение файла, тогда он будет импортировать только имена файлов указанного типа как из папки, так и из подпапок.

Нажмите, чтобы узнать больше об этой функции списка имен файлов…

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!

Демо: импортируйте несколько имен файлов в ячейки рабочего листа с помощью Kutools for Excel

Статьи по теме:

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

Как перечислить все имена файлов в папке и создать для них гиперссылки в Excel?

---

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Больше информации... Скачать бесплатно... Покупка ... 

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...