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

or

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

В этом уроке я расскажу о том, как быстро перечислить все имена изображений или файлов определенной папки на листе Excel, как показано на скриншоте.

БЫСТРАЯ НАВИГАЦИЯ

Вывести список имен картинок в Excel с помощью VBA
Перечислите имена изображений или имена файлов определенного формата для папки в Excel с помощью списка имен файлов
Скачать образец файла

название списка картинок 1

Вывести список имен картинок в Excel с помощью VBA

В Excel нет встроенной функции, которая может автоматически перечислять все имена изображений папки, которую вы выбираете в ячейке листа, но здесь у меня есть код VBA, который может помочь вам быстро решить эту задачу.

1. В Excel, затем нажмите + открывать ключи Microsoft Visual Basic для приложений окна.

2. В появившемся окне нажмите Вставить > модуль создать новый скрипт модуля.

3. Скопируйте приведенный ниже код и вставьте их в новое окно скрипта модуля.

Sub PictureNametoExcel () 'UpdatebyExtendoffice Dim I As Long Dim xRg В качестве диапазона Dim xAddress в виде строки Dim xFileName в виде строки Dim xFileDlg в качестве FileDialog Dim xFileDlgItem в качестве варианта при ошибке Возобновить Далее xAddress = ActiveWindow.RangeSeg Select.Amp_Exchange.election.RugeSelection.RugeSelection. ячейка для размещения списка имен: "," Kutools For Excel ", xAddress,,,,, 8) Если xRg ничего не значит, выйдите из подпрограммы .ScreenUpdating = False Установите xRg = xRg (1) xRg.Value =" Имя изображения " С xRg.Font .Name = "Arial" .ontontStyle = "Bold" .Size = 10 Завершить с xRg.EntireColumn.AutoFit Установить xFileDlg = Application.FileDialog (msoFileDialogFolderPicker) I = 1 Если xFileDlGFF .SelectedItems.Item (1) xFileName = Dir (xFileDlgItem & "\") Делать пока xFileName <> "" If InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InSt (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp")> 1 Тогда xRg.Offset (I) .Value = xF ileDlgItem & "\" & xFileName I = I + 0 End, если xFileName = Dir Loop End, если Application.ScreenUpdating = True End Sub

4. Нажмите F5 нажмите кнопку, затем появится диалоговое окно для выбора ячейки для размещения названий изображений.
название списка картинок 1

5. Нажмите OK продолжить выбор папки, в которой вы хотите перечислить имена изображений в диалоговом окне «Обзор».
название списка картинок 3

6. Нажмите OK, теперь все имена изображений в выбранной папке были перечислены в Excel.
название списка картинок 13

Примечание: В коде VBA вы можете jpg / png /… в строке кода Если InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Тогда к нужному расширению файла, например, если вы хотите перечислить имена файлов в формате doc, измените только строку кода на Если InStr (1, xFileName, ".doc")> 0 Тогда.

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


не двигаться

Вы хотите получить повышение заработной платы и много времени, чтобы сопровождать с семьей?

Вкладка Office повышает вашу эффективность на 50% в Microsoft Office, работающих прямо сейчас

Невероятно, работать с двумя или более документами проще и быстрее, чем с одним.

По сравнению с известными браузерами инструмент с вкладками в Office Tab является более мощным и эффективным.

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

Если вы обычно работаете с несколькими документами, вкладка Office станет для вас отличным способом экономии времени.

30-дневная бесплатная пробная версиякредитная карта не требуется.

ПодробнееСкачать сейчас


Перечислите имена изображений или имена файлов определенного формата для папки в Excel с помощью списка имен файлов

Вот утилита - Список имен файлов in Kutools for Excel, Которые могут

>> перечислить все имена файлов во всех форматах файлов папки на новом листе;

>> перечислить имена файлов в одном или нескольких форматах файлов, указанных в Excel;

>> список имен файлов, включая вложенные папки и скрытые файлы и папки в Excel.

Попрощайтесь с мышиной рукой и шейным спондилезом сейчас

Расширенные инструменты 300 от Kutools для Excel решают задачи 80% Excel за считанные секунды, избавляя вас от тысяч щелчков мышью.

Легко работайте с рабочими сценариями 1500, не нужно тратить время на поиск решений, у вас будет много времени, чтобы наслаждаться жизнью.

Повышайте производительность 80% для высокоэффективных людей 110000 + каждый день, конечно, включая вас.

Больше не мучайтесь от мучительных формул и VBA, дайте вашему мозгу отдых и радостное рабочее настроение.

60-дневная бесплатная пробная версия с полным набором функций, 60-день возврат денег без причин.

Лучшее тело создает лучшую жизнь.

После бесплатной установки Kutools для Excel выполните следующие действия:

1. Включите книгу, в которой вы хотите перечислить имена файлов, затем нажмите Kutools Plus > Импорт Экспорт > Список имен файлов.
название списка картинок 4

2. в Список имен файлов диалоговое окно, во-первых, нажмите название списка картинок 5 чтобы выбрать папку, в которой вы хотите указать имена файлов, установите флажки Включить файлы в подкаталоги Включить скрытые файлы и папки как вам нужно.
название списка картинок 6

3. Затем выберите формат файла, в котором вы хотите перечислить имена Тип файлов раздел.

Проверьте Все файлы опция, он будет перечислять все имена файлов во всех форматах файлов в выбранной папке
название списка картинок 7
Проверьте общий и выберите конкретный формат файла, который вы хотите перечислить имена файлов из раскрывающегося списка, затем он перечислит все имена файлов формата файла, который вы выбираете в раскрывающемся списке
название списка картинок 8
Проверьте Указывать вариант, затем введите расширения файлов (используя запятую для их разделения), вы хотите перечислить имена файлов в текстовом поле, тогда он будет перечислять только имена файлов с расширениями ввода файла в Excel
название списка картинок 9

4. Выберите нужный размер из выпадающего списка в Размер файла раздел, если вы хотите создать ссылку на имена файлов, проверьте Создать гиперссылки вариант.

название списка картинок 10 название списка картинок 11

5. Нажмите Ok, новый лист будет создан, чтобы перечислить имена файлов и некоторую информацию о файле.
название списка картинок 12

Наконечник: если вы хотите перечислить все имена листов в Excel, вы можете применить Kutools для Excel ' Создать список имен листов утилита, она создаст новый лист для перечисления всех имен связанных листов.
создать список имен листов

Kutools for Excel: 200 + полезные удобные инструменты, упрощающие сложные задачи в Excel за несколько кликов.


Загрузить образец файла

образец


Как заставить вас выделиться из толпы, легко работать и не спеша наслаждаться жизнью?

Kutools для Excel будет в среднем улучшать вашу эффективность 80% каждый день, у вас будет много времени, чтобы сопровождать семью и получать удовольствие от жизни.

Усовершенствованные инструменты 300 решают проблемы 80% Excel, вам больше не нужно искать решения, легче выполнять работу.

Легко обрабатывайте сценарии 1500 Excel, экономя хотя бы час 1 для вас каждый день.

Станьте экспертом по Excel за минуты 5, получите признание людей и возможность продвижения по службе.

Утилиты одним щелчком обрабатывают пакетную обработку, позволяя избежать тысяч щелчков мышью, попрощавшись с мышью.

Избавьтесь от заучивающих формул и сложных VBA, дайте отдохнуть вашему мозгу.

Высокоэффективные сотрудники 110000 + и выбор всемирно известных компаний 300 +.

Только возьмите $ 39, но намного ценнее обучения других людей, чем $ 4000

Бесплатная пробная версия 60 days без каких-либо ограничений, возврат денег в 60-day без каких-либо причин.


Рекомендуемые инструменты производительности

Вкладка Office - Просмотр с вкладками, редактирование, управление документами в Microsoft Office 2019 - 2003 и Office 365


вкладка офиса

Профессиональная надстройка для ускорения Excel 2019-2007, сокращающая часы задач до секунд

Эта надстройка включает в себя десятки профессиональных групп с опциями 300 +, которые автоматизируют большинство ваших повседневных задач в Excel и увеличат вашу производительность как минимум на 50%. Например, группы оптонов в один клик и пакетных преобразований.
Теперь у вас есть шанс ускорить себя с помощью Kutools для Excel!


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.
    THE HELPER · 11 months ago
    I WAS HAVING THE SAME PROBLEM TANNER, IN THE SCRIPT WHERE IT HAS THE DIFFERENT FILE EXTENSIONS ITS GOING TO GRAB,YOU HAVE TO CAPITALIZE THE FILE EXTENSION ITS LOOKING FOR, FOR EXAMPLE, YOU SAID YOUR FILES ARE ".png", WELL IF YOU CAPITALIZE IT I.E ".PNG" IT MAY WORK.
  • To post as a guest, your comment is unpublished.
    Tanner Haynes · 1 years ago
    Is it possible that there is something wrong with the code? The file explorer is showing my folder full of images (.png) as empty.
  • To post as a guest, your comment is unpublished.
    Tanner · 1 years ago
    Is it possible something is wrong with the code? Because it shows folders full of images (.png) as empty when it pulls up the box to select the photos.