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.
| Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. |
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 pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!
