Note: The other languages of the website are Google-translated. Back to English

Cum să listați rapid numele de imagini / numele fișierelor unui folder în celulele Excel?

În acest tutorial, vă voi oferi câteva trucuri pentru a enumera rapid toate numele imaginilor sau numele fișierelor unui anumit folder într-o foaie Excel ca captură de ecran prezentată.

NAVIGAȚIE RAPIDĂ

Listează numele imaginilor unui folder în Excel cu VBA
Listați numele imaginilor sau numele fișierelor de format specific ale unui folder în Excel cu Lista de nume de fișiere
Descărcați fișierul eșantion

lista de documente numele numelui 1

Listează numele imaginilor unui folder în Excel cu VBA

În Excel, nu există nicio funcție încorporată care să poată afișa automat toate numele imaginilor unui folder pe care îl alegeți într-o celulă a unei foi, dar aici am un cod VBA care vă poate ajuta să rezolvați rapid acest job.

1. În Excel, apoi apăsați + tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În fereastra popping, faceți clic pe Insera > Module pentru a crea un nou script Module.

3. Copiați codul de mai jos și lipiți-le în noua fereastră a scriptului Module.

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. presa F5 , apoi apare un dialog pentru a selecta o celulă pentru a plasa numele imaginilor.
lista de documente numele numelui 1

5. clic OK pentru a continua să selectați folderul pe care doriți să-l listați numele imaginilor în dialogul Răsfoire.
lista de documente numele numelui 3

6. clic OK, acum toate numele imaginilor din folderul selectat au fost listate în Excel.
lista de documente numele numelui 13

Notă: În codul VBA, puteți jpg / png / ... în șirul de cod Dacă InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Apoi la extensia de fișier de care aveți nevoie, de exemplu, dacă doriți să listați numele fișierelor fișierului în format doc, schimbați doar șirul de coduri în Dacă InStr (1, xFileName, ".doc")> 0 Atunci.

Dacă de obicei trebuie să enumerați unul sau toate formatele unui nume de fișier dintr-un dosar în celula Excel în activitatea dvs. zilnică, codul este complex și nu este ușor de manevrat, dar, cu modul de mai jos, puteți rezolva rapid acest job.


nu se mișcă

Vreți să aveți o creștere a plății și mult timp pentru a însoți cu familia?

Fila Office vă îmbunătățește eficiența cu 50% în Microsoft Office funcționând chiar acum

Incredibil, lucrul la două sau mai multe documente este mai ușor și mai rapid decât lucrul la unul singur.

Comparat cu browsere cunoscute, instrumentul cu file din fila Office este mai puternic și mai eficient.

Reduceți sute de clicuri de mouse și tastarea tastaturii în fiecare zi pentru dvs., spuneți adio mâinii mouse-ului acum.

Dacă lucrați de obicei la mai multe documente, Office Office va economisi timp excelent pentru dvs.

30- zi de probă gratuită, nu este necesar un card de credit.

Citeste mai multeDescărcare gratuită acum


Listați numele imaginilor sau numele fișierelor de format specific ale unui folder în Excel cu Lista de nume de fișiere

Iată un utilitar - Lista de nume de fișiere in Kutools pentru Excel, care poate

>> enumeră toate numele fișierelor în toate formatele de fișiere ale unui folder într-o foaie nouă;

>> enumerați numele fișierelor într-unul sau mai multe formate de fișiere pe care le specificați în Excel;

>> enumerați numele fișierelor, inclusiv subfoldere și fișiere și foldere ascunse în Excel.

Spuneți adio mâinii șoarecilor și spondilozei cervicale acum

300 de instrumente avansate de rezolvare Kutools pentru Excel 80% Sarcini Excel în câteva secunde, scoateți-vă din miile de clicuri de mouse.

Faceți cu ușurință 1500 de scenarii de lucru, nu este nevoie să pierdeți timp pentru căutarea soluțiilor, aveți mult timp să vă bucurați de viață.

Îmbunătățiți productivitatea cu 80% pentru peste 110000 de persoane extrem de eficiente în fiecare zi, desigur, inclusiv pe dvs.

Nu mai fi chinuit de formule dureroase și VBA, dă-i creierului tău o odihnă și o dispoziție plăcută de lucru.

30- o zi de încercare gratuită cu funcții complete, 30-zi banii înapoi fără motive.

Un corp mai bun creează o viață mai bună.

După instalarea gratuită a Kutools pentru Excel, faceți următoarele:

1. Activați registrul de lucru pe care doriți să-l listați numele fișierelor, apoi faceți clic pe Kutools Plus > Import / Export > Lista de nume de fișiere.
lista de documente numele numelui 4

2. În Lista de nume de fișiere dialog, în primul rând, faceți clic pe  lista de documente numele numelui 5 pentru a selecta un folder pe care doriți să-l enumerați numele fișierelor, puteți bifa casetele de selectare din Includeți fișiere în subdirectoare și Includeți fișiere și foldere ascunse după cum ai nevoie.
lista de documente numele numelui 6

3. Apoi selectați formatul de fișier în care doriți să listați numele Tipul fișierelor secţiune.

Verifica Toate fișierele opțiunea, va afișa toate numele fișierelor în toate formatele de fișiere din folderul selectat
lista de documente numele numelui 7
Verifica Comun și selectați formatul de fișier specific pe care doriți să-l listați numele fișierelor din lista derulantă, apoi va afișa toate numele fișierelor formatului de fișier pe care îl alegeți în lista derulantă
lista de documente numele numelui 8
Verifica Specifica opțiune, apoi tastați extensiile de fișiere (folosind virgulă pentru a le separa) pe care doriți să le afișați numele fișierelor în caseta de text, apoi va lista doar numele fișierelor cu introducerea extensiilor de fișiere în Excel
lista de documente numele numelui 9

4. Alegeți unitatea de mărime după cum doriți din lista derulantă din Unitatea de dimensiune a fișierului secțiune, dacă doriți să creați un link către numele fișierelor, verificați Creați hyperlinkuri opțiune.

lista de documente numele numelui 10 lista de documente numele numelui 11

5. clic Ok, va fi creată o nouă foaie pentru a enumera numele fișierelor și unele informații despre fișiere.
lista de documente numele numelui 12

Sfat: dacă doriți să enumerați toate numele foilor în Excel, puteți aplica Kutools pentru Excel ' Creați o listă de nume de foi utilitar, va crea o foaie nouă pentru a enumera toate numele foilor care pot fi conectate.
creați o listă de nume de foi

Kutools pentru Excel: + instrumente utile la îndemână, simplificând sarcinile complicate din Excel în câteva clicuri.


Descărcați fișierul eșantion

probă


Cum să te distanți de mulțime, să lucrezi cu ușurință și să te bucuri pe îndelete de viață?

Kutools pentru Excel vă va îmbunătăți în mod eficient eficiența de 80% în fiecare zi, vă va face să aveți mult timp să însoțiți cu familia și să vă distrați în viață.

300 de instrumente avansate rezolvă 80% Probleme cu Excel, nu te mai chinui să cauți soluții, mai ușor finalizați munca.

Gestionează cu ușurință 1500 de scenarii Excel, economisește cel puțin 1 oră în fiecare zi.

Deveniți un expert Excel în 5 minute, câștigați recunoașterea oamenilor și oportunitatea de promovare.

Utilitățile cu un singur clic se ocupă de procesarea în serie, vă permit să evitați mii de clicuri de mouse, spuneți adio mâinii mouse-ului.

Scăpați de formulele de memorare a memoriei și de VBA complexe, dați o odihnă creierului.

110000+ ofițeri de înaltă eficiență și peste 300 de companii de renume mondial la alegere.

Luați doar 39 de dolari, dar mai mult decât 4000 de dolari pentru formarea altor persoane

30 zile de încercare gratuită fără nicio limitare, banii înapoi în totalitate 30-zi fără niciun motiv.


Instrumente de productivitate recomandate

Fila Office - Navigarea cu tab-uri, editarea, gestionarea documentelor în Microsoft Office 2019 - 2003 și Office 365


fila birou

Un program de completare profesional pentru accelerarea Excel 2019-2007, micșorează sarcinile de ore la secunde

Acest supliment include zeci de grupuri profesionale, cu peste 300 de opțiuni care vă vor automatiza majoritatea sarcinilor zilnice în Excel și vă vor crește productivitatea cu cel puțin 50%. De exemplu, grupuri de opțiuni cu un singur clic și conversii în serie.
Acum este șansa ta de a te accelera cu Kutools pentru Excel!


Comentarii (10)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să fie ceva în neregulă cu codul? Pentru că arată folderele pline cu imagini (.png) ca goale când trage în sus caseta pentru a selecta fotografiile.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să fie ceva în neregulă cu codul? Exploratorul de fișiere arată folderul meu plin de imagini (.png) ca gol.
Acest comentariu a fost redus la minimum de moderatorul de pe site
ARE ACEEAȘI PROBLEMĂ TANNER, ÎN SCRIPTUL UNDE ARE DIFERITE EXTENSII DE FIȘIER VA SĂ APUCE, TREBUIE SĂ SĂ CITEȘTE CU MAJUSCULĂ EXTENSIUNEA DE FIȘIER CĂUTATĂ, DE EXEMPLU, ȚI Spuna că FIȘIERELE VOASTRE SUNT „.png”, BINE DACĂ TU CAPITALIZAȚI-O AȘA „.PNG” POATE FUNCȚIONE.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acum merge la mine. Mulțumiri!!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum se exportă o imagine cu un anumit nume de fișier în Excel.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
Conform codului de mai sus, primesc numele imaginilor într-o ordine crescătoare, totuși calea în care sunt plasate imaginile este în incrementare numerică.

Vă rugăm să sugerați cum pot păstra aceeași formatare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Uimitor! Vă mulțumesc pentru partajarea!
Acest comentariu a fost redus la minimum de moderatorul de pe site
În Libreoffice Calc folosesc funcția de import a unei liste de fișiere în rândurile / coloanele unui tabel Calc, prin Macro și pe baza anumitor criterii - am creat un buton în bara de instrumente pentru această macrocomandă și după ce l-am apăsat, am selectați un folder, iar lista de imagini este imediat inserată într-un document nou. Cum să o faci cât mai ușor în Excel? Am o mulțime de foldere care conțin 1 sau mai multe imagini și trebuie să:
> Dacă folderul conține 1 imagine, trebuie să fie pe o nouă linie în Excel.
> Dacă folderul conține mai multe imagini, prima fiind pe o linie nouă și a doua fie:
- lângă primul din același rând (într-o coloană), despărțit prin caracterul | (exemplu: poza 1.jpeg | poza 2.jpeg)
- sau să aibă numele lor în coloane (chiar și fără caracterul |) (prima opțiune ar fi mai bună, dar și a doua este suficientă)

Acestea sunt imaginile produselor ale căror nume am nevoie pentru import în Woocommerce - printr-un fișier csv.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc mult pentru asta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei! Acest lucru este super rapid și mulțumesc
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL