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.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!

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?