Hoe importeert u meerdere bestandsnamen in cellen in Excel?
Stel dat u een map hebt met honderden bestanden en u de bestandsnamen daarvan in de cellen van een werkblad wilt importeren. Het handmatig kopiëren en plakken van elk bestand één voor één kost veel tijd. In dit artikel bespreek ik enkele snelle trucs om meerdere bestandsnamen uit een map direct in uw werkblad te importeren.
Meerdere bestandsnamen importeren in werkbladcellen met VBA-code
Meerdere bestandsnamen importeren in werkbladcellen met Kutools voor Excel
Meerdere bestandsnamen importeren in werkbladcellen met VBA-code
De volgende VBA-code helpt u om bestandsnamen, bestandsextensies en mapnamen rechtstreeks in uw werkbladcellen te importeren. Volg hiervoor de onderstaande stappen:
1. Start een nieuw werkblad waarnaar u de bestandsnamen wilt importeren.
2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Meerdere bestandsnamen importeren in cellen van een werkblad
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. Druk vervolgens op de toets F5 om deze code uit te voeren. Selecteer in het pop-upvenster Bladeren de map waaruit u de bestandsnamen wilt importeren. Zie onderstaande afbeelding:
5. Klik daarna op de knop OK en u krijgt het volgende resultaat:
Opmerking：Als er submappen in uw specifieke map zitten, worden de bestandsnamen uit die submappen niet geïmporteerd.
Meerdere bestandsnamen importeren in werkbladcellen met Kutools voor Excel
Wilt u de bestandsnamen uit zowel de hoofdmap als alle submappen importeren? Geen probleem! Met de Kutools voor Excel-functie Bestandsnaamlijst importeert u in één keer alle bestandsnamen uit de opgegeven map, inclusief alle submappen.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op KUTOOLS PLUS > Importeren/Exporteren > Bestandsnaamlijst. Zie de afbeelding hieronder:
2. Voer in het dialoogvenster Bestandsnaamlijst de volgende handelingen uit:
(1.) Klik op de knop 
om de map met de bestanden die u wilt importeren te selecteren;
(2.) Schakel het selectievakje Bestanden in submappen opnemenin om de bestandsnamen van de submappen te importeren;
(3.) Geef hetBestandstypeop dat u wilt importeren onder de sectie Bestandstype;
(4.) Selecteer éénEenheid van bestandsgroottedat u wilt weergeven in de sectie Eenheid van bestandsgrootte;
(5.) Als u hyperlinks naar de bestandsnamen en mappen wilt toevoegen, schakelt u de optie Hyperlink maken in.
3. Nadat u de instellingen hebt voltooid, klikt u op de knop OK en worden de bestandsnamen uit zowel de map als de submappen geïmporteerd in een nieuw werkblad, zoals in de onderstaande afbeelding wordt weergegeven:
Tips: Als u alleen bestandsnamen van één specifiek bestandstype uit een bepaalde map wilt importeren, schakelt u het selectievakje Opgeven in het dialoogvenster Bestandsnaamlijst in en voert u de bestandsextensie in. Vervolgens worden alleen de bestandsnamen van het opgegeven type geïmporteerd, zowel uit de map als uit de submappen.
Download nu de gratis proefversie van Kutools voor Excel!
Gerelateerde artikelen:
Hoe toont u alle bestanden in een map en submappen in een werkblad?
Hoe toont u alle bestandsnamen in een map en Hyperlink makenvoor deze bestanden in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins