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.

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?

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

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!

Læs mere ... Gratis download... Køb...