Kako uvoziti več imen datotek v celice v Excelu?

Recimo, da imate mapo s stotinami datotek in zdaj želite ta imena datotek uvoziti v celice delovnega lista. Kopiranje in lepljenje enega za drugim bo porabilo veliko časa, v tem članku bom govoril o nekaj hitrih trikih, ki vam bodo pomagali pri uvozu več imen datotek iz mape na delovni list.

Uvozi več imen datotek v celice delovnega lista s kodo VBA

Uvozi več imen datotek v celice delovnega lista s programom Kutools za Excel

Uvozi več imen datotek v celice delovnega lista s kodo VBA

Naslednja koda VBA vam lahko pomaga uvoziti imena datotek, končnice datotek in ime mape v celice delovnega lista, naredite naslednje:

1. Zaženite nov delovni list, v katerega želite uvoziti imena datotek.

2. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Uvozi več imen datotek v celice delovnega lista

Sub GetFileList()
'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)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Nato pritisnite F5 tipko za zagon te kode in v pojavnem oknu Brskaj izberite mapo, v katero želite uvoziti obrazec imen datotek, glejte posnetek zaslona:

5. In nato kliknite OK in dobili boste naslednji rezultat:

Opombe： Če so v vaši določeni mapi podmape, se imena datotek v podmapah ne bodo uvozila.

Uvozi več imen datotek v celice delovnega lista s programom Kutools za Excel

Če želite uvoziti imena datotek v mapo in podmape, ne skrbite, z Kutools za ExcelJe Seznam imen datotek Pripomoček lahko enostavno uvozite vsa imena datotek v določeno mapo, vključno s podmapami.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools Plus> Uvozno-izvoznih > Seznam imen datotek, glej posnetek zaslona:

2. v Seznam imen datotek v pogovornem oknu izvedite naslednje postopke:

(1.) Kliknite gumb, da izberete mapo z datotekami, ki jih želite uvoziti;

(2.) Preverite Vključi datoteke v podimenike za uvoz imen datotek podmap;

(3.) V razdelku določite vrsto datotek, ki jih želite uvoziti Vrsta datotek odsek;

(4.) Na seznamu izberite enoto velikosti datoteke, ki jo želite prikazati Enota velikosti datoteke odsek;

(5.) Če želite hiperpovezati imena datotek in mape, preverite Ustvari hiperpovezave možnost.

3. Po končanih nastavitvah kliknite OK in imena datotek v mapi in podmapah se uvozijo v nov delovni list, kot je prikazano na sliki spodaj:

nasveti: Če želite samo uvoziti imena določenih datotek tipa iz določene mape, lahko preverite Določite možnost v Seznam imen datotek pogovorno okno in vanj vnesite končnico datoteke, nato pa bo uvozila samo navedena imena datotek tipa iz mape in podmap.

Kliknite, če želite izvedeti več o tej funkciji seznama datotek ...

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!

Predstavitev: Uvozi več imen datotek v celice delovnega lista s programom Kutools za Excel

Sorodni članki:

Kako vse datoteke v mapi in podmapah našteti na delovnem listu?

Kako našteti vsa imena datotek v mapi in ustvariti hiperpovezave zanje v Excelu?

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...