Dans ce didacticiel, je vais fournir quelques astuces pour répertorier rapidement tous les noms d'images ou noms de fichiers d'un dossier spécifique dans une feuille Excel comme la capture d'écran. NAVIGATION RAPIDE >Liste des noms d'image d'un dossier dans Excel avec VBA >Liste des noms d'image ou des noms de fichier de format spécifique d'un dossier dans Excel avec la liste des noms de fichiers >Télécharger un exemple de fichier

Dans Excel, il n'y a pas de fonction intégrée qui peut automatiquement lister tous les noms d'image d'un dossier que vous choisissez dans une cellule d'une feuille, mais ici j'ai un code VBA qui peut vous aider à résoudre rapidement ce travail.

1. Dans Excel, appuyez sur autre + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Dans la fenêtre contextuelle, cliquez sur insérer > Module pour créer un nouveau script de module.

3. Copiez le code ci-dessous et collez-le dans la nouvelle fenêtre de script du module.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. presse F5 , puis une boîte de dialogue apparaît pour vous permettre de sélectionner une cellule pour placer les noms d'image.

5. Cliquez OK pour continuer à sélectionner le dossier dont vous souhaitez lister les noms d'images dans la boîte de dialogue Parcourir.

6. Cliquez OK, maintenant tous les noms d'image dans le dossier sélectionné ont été répertoriés dans Excel.

Remarque : Dans le code VBA, vous pouvez jpg / png /… dans la chaîne de code Si InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Puis à l'extension de fichier dont vous avez besoin, par exemple, si vous souhaitez répertorier les noms de fichier du fichier au format doc, modifiez uniquement la chaîne de code en Si InStr (1, xFileName, ".doc")> 0 Then.

Si vous avez généralement besoin de répertorier un ou tous les noms de fichiers d'un dossier dans une cellule Excel dans votre travail quotidien, le code est complexe et difficile à gérer, mais, avec la méthode ci-dessous, vous pouvez rapidement résoudre ce travail.

Voulez-vous avoir une augmentation de salaire et beaucoup de temps pour accompagner votre famille? L'onglet Office améliore votre efficacité de 50 % lorsque Microsoft Office fonctionne actuellement Incroyable, travailler sur deux documents ou plus est plus facile et plus rapide que travailler sur un seul. Comparé aux navigateurs connus, l'outil à onglets d'Office Tab est plus puissant et plus efficace. Réduisez les centaines de clics de souris et de saisie au clavier chaque jour pour vous, dites au revoir à la main de la souris maintenant. Si vous travaillez habituellement sur plusieurs documents, Office Tab vous fera gagner beaucoup de temps. 30-jour d'essai gratuit, Pas de carte de crédit nécessaire. En savoir plusGratuit Télécharger maintenant

Voici un utilitaire - Liste des noms de fichiers in Kutools for Excel, Qui peut

>> lister tous les noms de fichiers dans tous les formats de fichiers d'un dossier dans une nouvelle feuille;

>> lister les noms de fichiers dans un ou plusieurs formats de fichiers que vous spécifiez dans Excel;

>> liste les noms de fichiers, y compris les sous-dossiers et les fichiers et dossiers cachés dans Excel.

Essai gratuit Dites adieu à la main de souris et à la spondylose cervicale maintenant

300 outils avancés de Kutools pour Excel résoudre 80% Tâches Excel en quelques secondes, vous sortez des milliers de clics de souris.

Gérez facilement 1500 scénarios de travail, pas besoin de perdre de temps à rechercher des solutions, ayez beaucoup de temps pour profiter de votre vie. Améliorez la productivité de 80% pour plus de 110000 personnes très efficaces chaque jour, vous y compris bien sûr. Ne plus être tourmenté par les formules douloureuses et le VBA, donnez à votre cerveau une humeur de travail reposante et joyeuse. Essai gratuit de 30 jours avec toutes les fonctionnalités, remboursement de 30 jours sans motif. Un corps meilleur crée une vie meilleure.

En savoir plus Téléchargez

Après avoir installé gratuitement Kutools for Excel, procédez comme suit:

1. Activez le classeur dont vous souhaitez répertorier les noms de fichiers, puis cliquez sur Kutools Plus > Import / Export > Liste des noms de fichiers.

2. dans le Liste des noms de fichiers boîte de dialogue, tout d'abord, cliquez sur  pour sélectionner un dossier dont vous souhaitez lister les noms de fichiers, vous pouvez cocher les cases de Inclure les fichiers dans les sous-répertoires et Inclure les fichiers et dossiers cachés Comme vous le souhaitez.

3. Sélectionnez ensuite le format de fichier dans lequel vous souhaitez lister les noms Type de fichiers .

En cliquant Tous les fichiers option, il listera tous les noms de fichiers dans tous les formats de fichiers dans le dossier sélectionné

En cliquant Commun et sélectionnez le format de fichier spécifique pour lequel vous souhaitez lister les noms de fichiers dans la liste déroulante, puis il listera tous les noms de fichiers du format de fichier que vous choisissez dans la liste déroulante

En cliquant Spécifier option, puis tapez les extensions de fichier (en utilisant une virgule pour les séparer) que vous souhaitez lister les noms de fichiers dans la zone de texte, puis il ne listera que les noms de fichiers avec les extensions de fichier d'entrée dans Excel

4. Choisissez l'unité de taille dont vous avez besoin dans la liste déroulante dans Unité de taille de fichier section, si vous souhaitez créer un lien vers les noms de fichiers, cochez Créer des hyperliens option.

5. Cliquez Ok, une nouvelle feuille sera créée pour lister les noms de fichiers et certaines informations sur les fichiers.

Conseil: si vous souhaitez lister tous les noms de feuilles dans Excel, vous pouvez appliquer Kutools for Excel' Créer une liste de noms de feuilles utilitaire, il créera une nouvelle feuille pour lister tous les noms de feuille pouvant être liés.

Kutools for Excel: + outils pratiques utiles, simplifiant les tâches compliquées dans Excel en quelques clics.

Outils de productivité recommandés

Onglet Office - Navigation par onglets, modification, gestion des documents dans Microsoft Office 2019-2003 et Office 365

Téléchargement gratuit

Un complément professionnel pour accélérer Excel 2019-2007, réduire les heures de tâches à quelques secondes

Ce complément comprend des dizaines de groupes professionnels, avec plus de 300 options automatisera la plupart de vos tâches quotidiennes dans Excel et augmentera votre productivité d'au moins 50%. Tels que des groupes d'options en un clic et des conversions par lots.
C'est maintenant votre chance d'accélérer avec Kutools for Excel !

Téléchargement gratuit