Come elencare rapidamente i nomi delle immagini/nomi dei file di una cartella nelle celle di Excel?

In questo tutorial, vi fornirò alcuni trucchi per elencare rapidamente tutti i nomi delle immagini o dei file di una cartella specifica in un foglio di Excel, come mostrato nello screenshot. NAVIGAZIONE RAPIDA > Elenco dei nomi delle immagini di una cartella in Excel con VBA > Elenco dei nomi delle immagini o dei nomi dei file di un formato specifico di una cartella in Excel con Elenco nomi file > Scarica il file di esempio

In Excel, non esiste una funzione incorporata che possa elencare automaticamente tutti i nomi delle immagini di una cartella scelta in una cella del foglio, ma qui ho un codice VBA che può aiutarti a risolvere rapidamente questo compito.

1. In Excel, premere quindi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra che appare, fare clic su Inserisci > Modulo per creare un nuovo script Modulo.

3. Copiare il codice sottostante e incollarlo nella nuova finestra dello script Modulo.

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. Premere F5 tasto, quindi apparirà una finestra di dialogo per selezionare una cella in cui inserire i nomi delle immagini.

5. Fare clic OK per continuare selezionando la cartella in cui si desidera elencare i nomi delle immagini nella finestra di dialogo Sfoglia.

6. Fare clic OK, ora tutti i nomi delle immagini nella cartella selezionata sono stati elencati in Excel.

Nota: Nel codice VBA, è possibile modificare jpg/png/… nella stringa di codice If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then nell'estensione di file necessaria, ad esempio, se si desidera elencare i nomi dei file in formato doc, modificare semplicemente la stringa di codice in If InStr(1, xFileName, ".doc") > 0 Then.

Se hai bisogno di elencare spesso uno o tutti i formati dei nomi dei file di una cartella in una cella di Excel durante il tuo lavoro quotidiano, il codice è complesso e difficile da gestire, ma, con il metodo seguente, puoi risolvere rapidamente questo compito.

Vuoi Avere Un Aumento Di Stipendio e Molto Tempo Per Stare Con La Famiglia? Office Tab Aumenta La Tua Efficienza Del 50% Nel Lavoro Con Microsoft Office In Questo Momento Incredibile, lavorare su due o più documenti è più facile e veloce che lavorare su uno solo. Rispetto ai browser più conosciuti, lo strumento a schede di Office Tab è più potente ed efficiente. Riduci centinaia di clic del mouse e battiture sulla tastiera ogni giorno, dì addio alla mano del mouse ora. Se di solito lavori su più documenti, Office Tab sarà un grande risparmio di tempo per te. 30-giorni di prova gratuita, nessuna carta di credito richiesta. Leggi di piùScarica Ora Gratis

Ecco un'utilità – Elenco nomi file in Kutools per Excel, che può

>> elencare tutti i nomi dei file in tutti i formati di file di una cartella in un nuovo foglio;

>> elencare i nomi dei file in uno o più formati di file specificati in Excel;

>> elencare i nomi dei file inclusi le sottocartelle e i file e le cartelle nascoste in Excel.

Prova Gratuita Dì Addio Alla Sindrome Da Mouse E Alla Cervicale Ora

300 strumenti avanzati di Kutools per Excel risolvono 80% compiti di Excel in pochi secondi, tirandoti fuori da migliaia di clic del mouse.

Gestisci facilmente 1500 scenari lavorativi, non c'è bisogno di perdere tempo cercando soluzioni, avrai molto più tempo per goderti la vita. Migliora 80% la produttività per oltre 110000 persone altamente efficaci ogni giorno, naturalmente includendo te. Non essere più tormentato da formule dolorose e VBA, dai al tuo cervello una pausa e un umore lavorativo gioioso. 30-giorni di prova gratuita con tutte le funzionalità, 30-giorni di rimborso senza motivazioni. Un Corpo Migliore Crea Una Vita Migliore.

Leggi Di Più Scarica Ora

Dopo aver installato gratuitamente Kutools per Excel, procedere come segue:

1. Attivare la cartella di lavoro in cui si desidera elencare i nomi dei file, quindi fare clic Kutools Plus > Importa/Esporta > Elenco nomi file.

2. Nella Elenco nomi file finestra di dialogo, prima di tutto, fare clic su per selezionare una cartella di cui si desidera elencare i nomi dei file, quindi è possibile selezionare le caselle di controllo di Includi file nelle sottodirectory e Includi file e cartelle nascosti secondo necessità.

3. Quindi selezionare il formato di file che si desidera elencare i nomi nella sezione Tipo di file.

Selezionare l'opzione Tutti i file, elencherà tutti i nomi dei file in tutti i formati di file nella cartella selezionata

Selezionare l'opzione Comuni, e scegliere il formato di file specifico da cui si desidera elencare i nomi dei file dall'elenco a discesa, quindi elencherà tutti i nomi dei file del formato di file scelto nell'elenco a discesa

Selezionare l'opzione Specifica, quindi digitare le estensioni dei file (usando la virgola per separarle) per cui si desidera elencare i nomi dei file nella casella di testo, quindi elencherà solo i nomi dei file con le estensioni di file inserite in Excel

4. Scegliere l'unità di misura della dimensione dal menu a discesa nella sezione Unità di dimensione file, se si desidera creare un collegamento ipertestuale ai nomi dei file, selezionare l'opzione Crea collegamenti ipertestuali.

5. Fare clic Ok, verrà creato un nuovo foglio per elencare i nomi dei file e alcune informazioni sui file.

Suggerimento: se si desidera elencare tutti i nomi dei fogli in Excel, è possibile applicare Kutools per Excel’ Crea tabella di collegamento utilità, creerà un nuovo foglio per elencare tutti i nomi dei fogli collegabili.

Kutools per Excel:+ strumenti utili e pratici, semplificando i compiti complessi in Excel con pochi clic.