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

В этом руководстве я предоставлю несколько советов по быстрому выводу всех названий изображений или файлов определенной папки на лист Excel, как показано на скриншоте. БЫСТРАЯ НАВИГАЦИЯ >Вывести названия изображений папки в Excel с помощью VBA >Вывести названия изображений или файлов определенного формата папки в Excel с помощью Списка имен файлов >Скачать пример файла

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

1. В Excel нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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

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

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

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

5. Нажмите OK для продолжения выбора папки, из которой нужно вывести названия изображений в диалоговом окне Обзор.

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

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

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

Хотите Получить Повышение Зарплаты и Много Времени, Чтобы Проводить Его С Семьей? Office Tab Увеличивает Вашу Эффективность На 50% В Работе С Microsoft Office Прямо Сейчас Невероятно, но работа с двумя или более документами становится проще и быстрее, чем с одним. В сравнении с известными браузерами, вкладки в Office Tab более мощные и эффективные. Сократите сотни кликов мышью и нажатий на клавиатуру каждый день, скажите «нет» боли в руке от мыши уже сегодня. Если вы обычно работаете с несколькими документами одновременно, Office Tab станет для вас отличным помощником в экономии времени. 30-дневный бесплатный пробный период, кредитная карта не требуется. Читать ДалееБесплатная Загрузка Прямо Сейчас

Здесь есть утилита – Список имен файлов в Kutools для Excel, которая может

>> вывести все названия файлов во всех форматах папки на новый лист;

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

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

Бесплатная пробная версия Скажите прощай синдрому мыши и шейному остеохондрозу прямо сейчас

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

Легко справляетесь с 1500 рабочими сценариями, не тратьте время на поиск решений, у вас будет больше времени наслаждаться жизнью. Повышайте 80% производительность для 110000+ высокоэффективных людей каждый день, конечно, включая вас. Больше не мучайтесь от болезненных формул и VBA, дайте вашему мозгу отдых и радостное рабочее настроение. 30-дневная бесплатная пробная версия со всеми функциями, 30-дневный возврат денег без объяснения причин. Лучшее тело создает лучшую жизнь.

Читать далее Скачать сейчас

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

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

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

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

Отметьте опцию Все файлы, она выведет все названия файлов во всех форматах в выбранной папке

Отметьте опцию Общие и выберите конкретный формат файлов, названия которых вы хотите вывести из выпадающего списка, затем он выведет все названия файлов выбранного формата из выпадающего списка

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

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

5. Нажмите Ok, будет создан новый лист для вывода названий файлов и некоторой информации о файлах.

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

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