Cum să listezi toate numele de fișiere dintr-un folder și să le creezi hyperlinkuri în Excel?

Pentru munca dvs. zilnică, poate fi necesar să importați mai multe nume de fișiere dintr-un folder într-o foaie de lucru și să creați hyperlinkuri pentru fiecare fișier, astfel încât să deschideți fișierul rapid și ușor. Poate, puteți copia și lipi numele fișierelor și creați un hyperlink pentru unul câte unul manual, dar acest lucru va pierde mult timp dacă există sute de fișiere în dosar. Astăzi, voi vorbi despre câteva metode rapide și interesante pentru a face față acestui loc de muncă.

Enumerați toate numele de fișiere dintr-un folder și creați hyperlinkuri cu cod VBA

Enumerați toate numele de fișiere dintr-un folder și creați hyperlinkuri cu Kutools pentru Excel

Enumerați toate numele de fișiere dintr-un folder și creați hyperlinkuri cu cod VBA

Pentru a lista și a crea hyperlink cu fișiere dintr-un folder, următorul cod VBA vă poate face o favoare.

1. Activați o nouă foaie de lucru pentru a pune rezultatul.

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

VBA: enumerați toate numele de fișiere dintr-un folder și creați hyperlinkuri

Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object 
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Apoi apăsați F5 pentru a rula acest cod și alegeți folderul pe care doriți să listați fișierele din Naviga fereastră, vezi captura de ecran:

5. După specificarea folderului, faceți clic pe OK și toate fișierele din folderul specific au fost listate într-o foaie de lucru activă cu hyperlinkuri, consultați captura de ecran:

notițe: Dacă există subfoldere în folderul dvs. specific, fișierele din subfoldere nu vor fi listate.

Enumerați toate numele de fișiere dintr-un folder și creați hyperlinkuri cu Kutools pentru Excel

Pentru a afișa toate fișierele atât dintr-un folder, cât și subfolderele acestuia, precum și hyperlink-uri create pentru fiecare fișier, Kutools pentru Excel'S Lista de nume de fișiere poate să-ți facă o favoare. Cu această caracteristică, toate fișierele din folder și subfoldere vor fi listate simultan cu anumite atribute, cum ar fi numele fișierului, dimensiunea fișierului, ora creată, conținând folderul și așa mai departe.

Dacă ați instalat Kutools pentru ExcelVă rugăm să efectuați pașii următori:

1. Clic Kutools Plus > Import Export > Lista de nume de fișiere, vezi captura de ecran:

2. În Lista de nume de fișiere caseta de dialog, vă rugăm să efectuați următoarele operații:

(1.) Faceți clic pe buton pentru a selecta folderul pe care doriți să listați numele fișierelor;

(2.) Verificați Includeți fișiere în subdirectoare dacă doriți să listați numele fișierelor în subfoldere, verificați Includeți fișiere și foldere ascunse dacă doriți să enumerați fișierele ascunse;

(3.) Specificați tipurile de fișiere pe care doriți să le găsiți și listați în Tipul fișierelor secțiune;

(4.) Selectați unitatea de dimensiune a fișierului pe care doriți să o afișați;

(5.) Verificați Creați hyperlinkuri în partea stângă jos a casetei de dialog.

Descărcați Kutools pentru Excel acum!

3. Apoi apasa Ok și toate fișierele din folder și subfoldere au fost listate într-o nouă foaie de lucru cu hyperlinkurile după cum aveți nevoie, consultați captura de ecran:

Faceți clic pentru a afla mai multe detalii despre utilitarul Lista de nume de fișiere ...

Descărcați și proba gratuită Kutools pentru Excel acum!

Demo: enumerați toate numele de fișiere dintr-un folder și creați hyperlinkuri cu Kutools pentru Excel

Articol asociat:

Cum se listează toate fișierele din folder și subfoldere într-o foaie de lucru?