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

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

1. В Excel нажмите другой + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

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

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 /… в строке кода Если 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 повышает эффективность работы Microsoft Office на 50% прямо сейчас Невероятно, но работать с двумя или более документами проще и быстрее, чем над одним. По сравнению с известными браузерами инструмент с вкладками в Office Tab более мощный и эффективный. Сократите для вас сотни щелчков мыши и набора текста с клавиатуры каждый день, попрощайтесь с рукой мыши. Если вы обычно работаете с несколькими документами, вкладка Office поможет вам сэкономить время. 30- дневная бесплатная пробная версия, кредитная карта не требуется. Узнать большеСкачать сейчас

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

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

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

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

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

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

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

Узнать больше Скачать сейчас

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

1. Включите книгу, в которой вы хотите отобразить имена файлов, затем щелкните Кутулс Плюс > Импорт/Экспорт > Список имен файлов.

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

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

Проверьте Все файлы вариант, он перечислит все имена файлов во всех форматах файлов в выбранной папке

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

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

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

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

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

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

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

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

Бесплатная загрузка

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

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

Бесплатная загрузка