Passer au contenu principal

Comment importer plusieurs noms de fichiers dans des cellules dans Excel?

Supposons que vous ayez un dossier avec des centaines de fichiers et que vous souhaitiez maintenant importer ces noms de fichiers dans des cellules d'une feuille de calcul. Copier et coller un par un prendra beaucoup de temps.Dans cet article, je parlerai de quelques astuces rapides pour vous aider à importer plusieurs noms de fichiers d'un dossier dans une feuille de calcul.

Importez plusieurs noms de fichiers dans des cellules de feuille de calcul avec le code VBA

Importez plusieurs noms de fichiers dans les cellules d'une feuille de calcul avec Kutools for Excel


Importez plusieurs noms de fichiers dans des cellules de feuille de calcul avec le code VBA

Le code VBA suivant peut vous aider à importer les noms de fichier, les extensions de fichier et le nom de dossier dans les cellules de la feuille de calcul, veuillez suivre les étapes suivantes:

1. Lancez une nouvelle feuille de calcul dont vous souhaitez importer les noms de fichiers.

2. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: importez plusieurs noms de fichiers dans les cellules de la feuille de calcul

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. Puis appuyez F5 clé pour exécuter ce code, et dans la fenêtre contextuelle Parcourir, choisissez le dossier dans lequel vous souhaitez importer le formulaire des noms de fichiers, voir capture d'écran:

doc importer les noms de fichiers 1

5. Et puis cliquez OK bouton, et vous obtiendrez le résultat suivant:

doc importer les noms de fichiers 2

Notes: S'il y a des sous-dossiers dans votre dossier spécifique, les noms de fichiers dans les sous-dossiers ne seront pas importés.


Importez plusieurs noms de fichiers dans les cellules d'une feuille de calcul avec Kutools for Excel

Si vous devez importer les noms de fichiers à la fois dans le dossier et les sous-dossiers, ne vous inquiétez pas, avec Kutools for Excel's Liste des noms de fichiers utilitaire, vous pouvez facilement importer tous les noms de fichiers dans le dossier spécifique, y compris les sous-dossiers.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. 

Après l'installation de Kutools for Excel, procédez comme suit:

1Cliquez sur Kutools Plus> Import & Export > Liste des noms de fichiers, voir capture d'écran:

2. Dans le Liste des noms de fichiers boîte de dialogue, effectuez les opérations suivantes:

(1.) Cliquez sur doc importer les noms de fichiers 5 bouton pour sélectionner le dossier contenant les fichiers que vous souhaitez importer;

(2.) Vérifier Inclure les fichiers dans les sous-répertoires pour importer les noms de fichiers des sous-dossiers;

(3.) Spécifiez le type de fichiers que vous souhaitez importer sous le Type de fichiers section;

(4.) Sélectionnez une unité de taille de fichier que vous souhaitez afficher Unité de taille de fichier section;

(5.) Si vous souhaitez créer un lien hypertexte entre les noms de fichiers et les dossiers, veuillez cocher Créer des hyperliens option.

doc importer les noms de fichiers 4

3. Après avoir terminé les réglages, veuillez cliquer sur OK bouton, et les noms de fichiers dans le dossier et les sous-dossiers sont importés dans une nouvelle feuille de calcul comme illustré ci-dessous:

doc importer les noms de fichiers 6

Pourboires: Si vous souhaitez simplement importer un nom de fichier de type spécifié à partir d'un dossier spécifique, vous pouvez vérifier Spécifier option dans la Liste des noms de fichiers et tapez l'extension de fichier dedans, alors il importera uniquement les noms de fichier de type spécifié à partir du dossier et des sous-dossiers.

Cliquez pour en savoir plus sur cette fonctionnalité de liste de noms de fichiers…

Téléchargez et essayez gratuitement Kutools for Excel Now!


Démo : importez plusieurs noms de fichiers dans les cellules d'une feuille de calcul avec Kutools for Excel

Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Articles Liés:

Comment répertorier tous les fichiers du dossier et des sous-dossiers dans une feuille de calcul?

Comment répertorier tous les noms de fichiers dans un dossier et créer des liens hypertexte pour eux dans Excel?

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

onglet kte 201905


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (14)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
very helpful. Tnx much
Rated 5 out of 5
This comment was minimized by the moderator on the site
Another easy method is there. Just copy the directory path where you have saved the documents, and paste that link in browser (chrome/mozilla). You will get the name list and just copy paste into excel. Cheers!
This comment was minimized by the moderator on the site
i want to add table,only folder name,and data modified as well?
This comment was minimized by the moderator on the site
Hello,
Do you want to list all folder names from a specific main folder? Please give your problem more detailed.
This comment was minimized by the moderator on the site
i want to mention only folder name.what is vba code for that.
This comment was minimized by the moderator on the site
is there a way to put the folder path already in the code?
This comment was minimized by the moderator on the site
For the VBA code, how would you pull in the date modified as well?
This comment was minimized by the moderator on the site
Hello,
Add the date modified column for the imported filenames, please apply the following VBA code, please try it, hope it can help you!

Sub GetFileList()
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"
ActiveSheet.Cells(1, 4) = "Date last modified"
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)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Next
End Sub
This comment was minimized by the moderator on the site
Thanks. It was awesome
This comment was minimized by the moderator on the site
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path not found bisa bantu kenapa itu bisa terjadi?
This comment was minimized by the moderator on the site
Apakah bisa merename file dengan excel?
terimakasih sangat membantu perkerjaan saya,
This comment was minimized by the moderator on the site
Very helpful, thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations