Note: The other languages of the website are Google-translated. Back to English

Как импортировать несколько имен файлов в ячейки в 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 ключ для выполнения этого кода, и в появившемся окне Обзор выберите папку, в которую вы хотите импортировать форму имен файлов, см. снимок экрана:

doc импортировать имена файлов 1

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

doc импортировать имена файлов 2

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


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

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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

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

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

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

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

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

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

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

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

doc импортировать имена файлов 4

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

doc импортировать имена файлов 6

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

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

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


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

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

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

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

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


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (14)
Номинальный 5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Привет,
У меня есть лист ecxel, в котором есть некоторые названия продуктов, а также есть папка, в которой есть несколько файлов PDF, названных так же, как в данных ячейки, например, если значение ячейки A2 равно apple1, имя файла Pdf - apple1.pdf, я хочу знать, какое имя файл отсутствует, можем ли мы получить его в excel как-нибудь ..
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Мик,
Во-первых, вы можете применить приведенный выше код, чтобы вставить имена файлов в рабочий лист, перечислить два столбца имен файлов на одном рабочем листе, а затем вы можете использовать функцию «Выбрать одинаковые и разные ячейки» в Kutools, чтобы идентифицировать и выделить отсутствующие имена файлов, см. снимок экрана :

Пожалуйста, попробуйте, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезно, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Апака с merename файла в Excel?
terimakasih sangat membantu perkerjaan saya,
Этот комментарий был сведен к минимуму модератором на сайте
Saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah время выполнения 26 путь не найден bisa bantu kenapa itu bisa terjadi?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо. это было круто
Этот комментарий был сведен к минимуму модератором на сайте
Для кода VBA, как бы вы также вытащили измененную дату?
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Добавьте столбец даты изменения для импортированных имен файлов, примените следующий код VBA, попробуйте, надеюсь, он вам поможет!

Подпрограмма GetFileList()
Dim xFSO как объект
Dim xFolder как объект
Dim xFile как объект
Dim xFiDialog как FileDialog
Dim xPath как строка
Dim i As Integer
Установите xFiDialog = Application.FileDialog (msoFileDialogFolderPicker)
Если xFiDialog.Show = -1 Тогда
xPath = xFiDialog.SelectedItems(1)
End If
Установите xFiDialog = Ничего
Если xPath = "", то выйдите из Sub
Установите xFSO = CreateObject("Scripting.FileSystemObject")
Установить xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Имя папки"
ActiveSheet.Cells(1, 2) = "Имя файла"
ActiveSheet.Cells(1, 3) = "Расширение файла"
ActiveSheet.Cells(1, 4) = "Дата последнего изменения"
я = 1
Для каждого xFile в 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)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Далее
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
есть ли способ указать путь к папке уже в коде?
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу упомянуть только имя папки. Что такое код vba для этого.
Этот комментарий был сведен к минимуму модератором на сайте
я хочу добавить таблицу, только имя папки, а также изменить данные?
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Вы хотите перечислить все имена папок из определенной основной папки? Пожалуйста, опишите вашу проблему более подробно.
Этот комментарий был сведен к минимуму модератором на сайте
Есть еще один простой способ. Просто скопируйте путь к каталогу, в котором вы сохранили документы, и вставьте эту ссылку в браузер (chrome/mozilla). Вы получите список имен и просто скопируйте и вставьте в Excel. Ваше здоровье!
Этот комментарий был сведен к минимуму модератором на сайте
очень полезно. спасибо большое
Номинальный 5 из 5
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL