У цьому підручнику я наводжу деякі хитрощі щодо швидкого переліку всіх імен зображень або назв файлів певної папки на аркуші Excel, як показано на скріншоті. ШВИДКА НАВІГАЦІЯ >Перелічіть назви зображень папки в Excel за допомогою VBA >Перелічіть назви зображень або назви файлів конкретного формату папки в Excel за допомогою списку імен файлів >Завантажте зразок файлу

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

1. У програмі Excel натисніть інший + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. У спливаючому вікні натисніть Insert > Модулі створити новий сценарій модуля.

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 підвищує вашу ефективність на 50% у Microsoft Office, що працює прямо зараз Неймовірно, працювати з двома або більше документами простіше і швидше, ніж працювати з одним. Порівняно з відомими браузерами, інструмент із вкладками в Office Tab потужніший і ефективніший. Зменште сотні клацань миші та набору тексту за допомогою клавіатури щодня, прощайтеся з рукою миші. Якщо ви зазвичай працюєте з кількома документами, вкладка Office допоможе вам заощадити час. 30-денна безкоштовна пробна версія, кредитна картка не потрібна. ДетальнішеБезкоштовно завантажити зараз

Ось утиліта - Список імен файлів in 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 за кілька кліків.

Рекомендовані засоби підвищення продуктивності

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

Безкоштовне завантаження

Професійна надбудова для прискорення Excel 2019-2007, що зменшує години роботи на секунди

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

Безкоштовне завантаження