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

Ето една помощна програма – Списък с имена на файлове in Kutools за Excel, който може

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

>> избройте имената на файловете в един или няколко файлови формата, които сте посочили в Excel;

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

Безплатен пробен период Кажете сбогом на мишата ръка и цервикалната спондилоза сега

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

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

Вижте повече Свали сега

След безплатно инсталиране на Kutools за Excel, моля, направете следното:

1. Активирайте работната книга, която искате, за да посочите имената на файловете, след което щракнете Kutools плюс > Import / Export > Списък с имена на файлове.

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!

Безплатно сваляне