Hvordan importeres flere filnavne til celler i Excel?
Antag at du har en mappe med hundredvis af filer, og nu vil du importere disse filnavne til celler i et regneark. Kopiering og indsættelse en efter en vil bruge meget tid. I denne artikel vil jeg tale om nogle hurtige tricks, der hjælper dig med at importere flere filnavne fra en mappe til et regneark.
Importer flere filnavne til regnearkceller med VBA-kode
Importer flere filnavne til regnearkceller med Kutools til Excel
Importer flere filnavne til regnearkceller med VBA-kode
Følgende VBA-kode kan hjælpe dig med at importere filnavne, filtypenavne og mappenavn til regnearkcellerne, gør følgende:
1. Start et nyt regneark, som du vil importere filnavnene.
2. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Importer flere filnavne til celler i regnearket
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. Tryk derefter på F5 nøgle til at udføre denne kode, og vælg den mappe, du vil importere filnavnformularen i det poppede Gennemse-vindue, se skærmbillede:
5. Og klik derefter på OK knappen, og du får følgende resultat:
Bemærk: Hvis der er undermapper i din specifikke mappe, importeres filnavnene i undermapperne ikke.
Importer flere filnavne til regnearkceller med Kutools til Excel
Hvis du har brug for at importere filnavnene både i mappen og undermapperne, skal du ikke bekymre dig, med Kutools til Excel's Liste over filnavne værktøj, kan du nemt importere alle filnavne i den specifikke mappe inklusive undermapperne.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excelskal du gøre som følger:
1. Klik Kutools Plus> Import Eksport > Liste over filnavne, se skærmbillede:
2. I Liste over filnavne i dialogboksen, skal du udføre følgende handlinger:
(1.) Klik på knappen for at vælge mappen med de filer, du vil importere;
(2.) Kontroller Inkluder filer i underkataloger at importere filnavnene på undermapperne;
(3.) Angiv den filtype, du vil importere under Filtype afsnit;
(4.) Vælg en filstørrelsesenhed, du vil have vist fra Filstørrelsesenhed afsnit;
(5.) Hvis du vil hyperlinke filnavne og mapper, skal du kontrollere Opret hyperlinks valgmulighed.
3. Når du er færdig med indstillingerne, skal du klikke på OK knap, og filnavnene både i mappe og undermapper importeres til et nyt regneark som følgende skærmbillede vist:
Tips: Hvis du bare vil importere et bestemt filnavn fra en bestemt mappe, kan du kontrollere det Angiv valgmulighed i Liste over filnavne dialog, og skriv filtypen ind i den, så importerer den kun de angivne type filnavne fra både mappe og undermapper.
Klik for at vide mere om denne filnavnelistefunktion ...
Download og gratis prøveversion Kutools til Excel nu!
Demo: Importer flere filnavne til regnearkceller med Kutools til Excel
Relaterede artikler:
Hvordan vises alle filer i mappe og undermapper i et regneark?
Hvordan liste alle filnavne i en mappe og oprette hyperlinks til dem i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!