Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

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

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


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

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

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

3. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

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

Sub GetFileList()
'updateby Extendoffice 20150909
    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, бесплатно попробовать без ограничений в 60-дни.

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

1. Щелчок Предприятие > Импорт / Экспорт > Список имен файлов, см. снимок экрана:

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

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

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

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

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

(4.) Выберите один размер файла, который вы хотите отобразить из Размер файла раздел;

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

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

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

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

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

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

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


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

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


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

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

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


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Balaji · 1 days ago
    Another easy method is there. Just copy the directory path where you have saved the documents, and paste that link in browser (chrome/mozilla). You will get the name list and just copy paste into excel. Cheers!
  • To post as a guest, your comment is unpublished.
    amit kuamr sahu · 10 days ago
    i want to add table,only folder name,and data modified as well?
  • To post as a guest, your comment is unpublished.
    amit kumar sahu · 10 days ago
    i want to mention only folder name.what is vba code for that.
  • To post as a guest, your comment is unpublished.
    lu · 1 months ago
    is there a way to put the folder path already in the code?
  • To post as a guest, your comment is unpublished.
    J · 7 months ago
    For the VBA code, how would you pull in the date modified as well?
    • To post as a guest, your comment is unpublished.
      skyyang · 7 months ago
      Hello,
      Add the date modified column for the imported filenames, please apply the following VBA code, please try it, hope it can help you!

      Sub GetFileList()
      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"
      ActiveSheet.Cells(1, 4) = "Date last modified"
      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)
      ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    kaka · 8 months ago
    Thanks. It was awesome
  • To post as a guest, your comment is unpublished.
    dimas · 11 months ago
    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 run time 26 path not found bisa bantu kenapa itu bisa terjadi?
  • To post as a guest, your comment is unpublished.
    agiltriyasmoko · 1 years ago
    Apakah bisa merename file dengan excel?
    terimakasih sangat membantu perkerjaan saya,
  • To post as a guest, your comment is unpublished.
    Carrin · 1 years ago
    Very helpful, thank you!
  • To post as a guest, your comment is unpublished.
    Myk · 1 years ago
    Hey,
    I have a ecxel sheet which have some product names, and also have a folder which have some pdf files named same as in cell data, like if cell A2 value is apple1, Pdf file name is apple1.pdf, i want to know which name file is missing, can we get that in excel somwhow..
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello,Myk,
      First, you can apply the above code to insert the filenames into the worksheet, list the two columns of filenames into one worksheet, and then you can use the Select Same & Different cells feature of Kutools to identify and highlight the missing filenames, see screenshot:

      Please try it, thank you!