Как быстро вывести список названий изображений/файлов папки в ячейки Excel?
В этом руководстве я предоставлю несколько советов по быстрому выводу всех названий изображений или файлов определенной папки на лист Excel, как показано на скриншоте. БЫСТРАЯ НАВИГАЦИЯ Вывести названия изображений папки в Excel с помощью VBA |  |
Вывести названия изображений папки в Excel с помощью VBA
В Excel нет встроенной функции, которая автоматически выводит все названия изображений выбранной папки в ячейку листа, но у меня есть код VBA, который поможет вам быстро решить эту задачу.
1. В Excel нажмите клавиши + , чтобы открыть окно 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 Прямо Сейчас
|
Невероятно, но работа с двумя или более документами становится проще и быстрее, чем с одним.Вывести названия изображений или файлов определенного формата папки в Excel с помощью Списка имен файлов
Здесь есть утилита – Список имен файлов в Kutools для Excel, которая может
>> вывести все названия файлов во всех форматах папки на новый лист;
>> вывести названия файлов в одном или нескольких указанных форматах в Excel;
>> вывести названия файлов, включая подпапки и скрытые файлы и папки в Excel.
Скажите прощай синдрому мыши и шейному остеохондрозу прямо сейчас
300 продвинутых инструментов Kutools для Excel решают 80% задач Excel за секунды, избавляя вас от тысяч кликов мышью.
 |
|
Легко справляетесь с 1500 рабочими сценариями, не тратьте время на поиск решений, у вас будет больше времени наслаждаться жизнью.После бесплатной установки Kutools для Excel выполните следующие действия:
1. Откройте книгу, в которую вы хотите вывести названия файлов, затем нажмите Kutools Plus > Импорт/Экспорт > Список имен файлов.
2. В Списке имен файлов диалоговом окне сначала нажмите 
для выбора папки, из которой вы хотите вывести названия файлов, затем вы можете отметить флажки Включить файлы в подкаталогах и Включить скрытые файлы и папки по необходимости.
3. Затем выберите формат файлов, названия которых вы хотите вывести в разделе Тип файлов.
4. Выберите единицу измерения размера файлов по необходимости из выпадающего списка в разделе Единица измерения размера файлов, если вы хотите создать ссылку на названия файлов, отметьте опцию Создать гиперссылки.
 |  |
5. Нажмите Ok, будет создан новый лист для вывода названий файлов и некоторой информации о файлах.
Совет: если вы хотите вывести все названия листов в Excel, вы можете применить инструмент Создать связующую таблицу из Kutools для Excel, который создаст новый лист для вывода всех связываемых названий листов.
Kutools для Excel:+ полезных инструментов, упрощающих сложные задачи в Excel до нескольких кликов.
Скачать пример файла
Как выделиться из толпы, легко работать и спокойно наслаждаться жизнью?
Kutools для Excel в среднем повысит вашу 80% эффективность каждый день, давая вам больше времени проводить с семьей и наслаждаться жизнью.
300 продвинутых инструментов решают 80% проблемы Excel, вам больше не нужно бороться за поиск решений, работа завершается легче.
Легко справляетесь с 1500 сценариями Excel, экономя как минимум 1 час вашего времени каждый день.
Станьте экспертом Excel за 5 минут, получите признание людей и возможность повышения.
Утилиты с одним кликом обрабатывают пакетные операции, позволяя вам избежать тысяч кликов мышью, скажите «прощай» боли в руке от мыши.
Избавьтесь от зубрежки формул и сложного VBA, дайте отдохнуть вашему мозгу.
Более 110000 офицеров высокой эффективности и выбор более чем 300 всемирно известных компаний.
Всего за $39, но гораздо ценнее, чем обучение других за $4000.
30 дней бесплатной пробной версии без каких-либо ограничений, полный возврат денег в течение 30-дня без объяснения причин.
Рекомендуемые инструменты производительности
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек