In questo tutorial, fornirò alcuni trucchi per elencare rapidamente tutti i nomi di immagini o nomi di file di una cartella specifica in un foglio Excel come mostrato nell'immagine. NAVIGAZIONE RAPIDA >Elenca i nomi delle immagini di una cartella in Excel con VBA >Elenca i nomi delle immagini oi nomi di file di 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 che scegli in una cella di un foglio, ma qui ho un codice VBA che può aiutarti a risolvere rapidamente questo lavoro.

1. In Excel, quindi premere altro + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.

2. Nella finestra a comparsa, fare clic su inserire > Moduli per creare un nuovo script del modulo.

3. Copia il codice sottostante e incollalo nella nuova finestra di script del 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. Stampa F5 , quindi viene visualizzata una finestra di dialogo per selezionare una cella in cui inserire i nomi delle immagini.

5. Clic OK per continuare a selezionare la cartella in cui si desidera elencare i nomi delle immagini nella finestra di dialogo Sfoglia.

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

Nota: Nel codice VBA, puoi jpg / png / ... nella stringa di codice Se InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Allora all'estensione del file necessaria, ad esempio, se si desidera elencare i nomi dei file del file in formato doc, modificare solo la stringa del codice in Se InStr (1, xFileName, ".doc")> 0 Allora.

Se di solito devi elencare uno o tutti i nomi di file di una cartella nella cella di Excel nel tuo lavoro quotidiano, il codice è complesso e non facile da gestire, ma, con il modo seguente, puoi risolvere rapidamente questo lavoro.

Vuoi avere un aumento di stipendio e molto tempo per accompagnare la famiglia? La scheda Office migliora la tua efficienza del 50% in Microsoft Office lavorando adesso Incredibile, lavorare su due o più documenti è più facile e veloce che lavorare su uno solo. Rispetto ai browser più noti, lo strumento a schede di Office Tab è più potente ed efficiente. Riduci ogni giorno centinaia di clic del mouse e digitazione sulla tastiera, saluta subito la mano del mouse. Se di solito lavori su più documenti, Office Tab ti farà risparmiare molto tempo. 30prova gratuita di un giorno, nessuna carta di credito richiesta. Scopri di piùScarica gratis ora

Ecco un'utilità: Elenco nomi file in Kutools for Excel, Che può

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

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

>> elenca i nomi dei file, comprese le sottocartelle, i file e le cartelle nascosti in Excel.

Prova gratuita Dì addio alla mano del topo e alla spondilosi cervicale ora

300 strumenti avanzati di Kutools per Excel risolvono 80% Attività di Excel in pochi secondi, tirati fuori dalle migliaia di clic del mouse.

Gestisci facilmente 1500 scenari di lavoro, non c'è bisogno di perdere tempo per cercare soluzioni, avere molto tempo per goderti la vita. Migliora la produttività dell'80% per oltre 110000 persone altamente efficienti ogni giorno, ovviamente te compreso. Non essere più tormentato da formule dolorose e VBA, dai al tuo cervello un riposo e un gioioso umore lavorativo. Prova gratuita di 30 giorni con funzionalità complete, rimborso entro 30 giorni senza motivo. Un corpo migliore crea una vita migliore.

Scopri di più Scarica Ora

Dopo l'installazione gratuita di Kutools per Excel, eseguire le seguenti operazioni:

1. Abilitare la cartella di lavoro in cui si desidera elencare i nomi dei file, quindi fare clic su Kutools Plus > Import / Export > Elenco nomi file.

2. Nel Elenco nomi file finestra di dialogo, in primo luogo, fare clic  per selezionare una cartella di cui si desidera elencare i nomi dei file, è possibile selezionare le caselle di controllo di Includi file nelle sottodirectory ed Includi file e cartelle nascosti di cui hai bisogno.

3. Quindi selezionare il formato di file in cui si desidera elencare i nomi Tipo di file .

Vedi Tutti i file opzione, elencherà tutti i nomi di file in tutti i formati di file nella cartella selezionata

Vedi Uncommon e selezionare il formato di file specifico in cui si desidera elencare i nomi dei file dall'elenco a discesa, quindi elencherà tutti i nomi di file del formato di file scelto nell'elenco a discesa

Vedi Specificare opzione, quindi digita le estensioni di file (usando la virgola per separarle) che desideri elencare i nomi dei file nella casella di testo, quindi elencherà solo i nomi dei file con le estensioni dei file immesse in Excel

4. Scegli l'unità di misura di cui hai bisogno dall'elenco a discesa in Unità dimensione file sezione, se vuoi creare un collegamento ai nomi dei file, seleziona Crea collegamenti ipertestuali opzione.

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

Mancia: se vuoi elencare tutti i nomi dei fogli in Excel, puoi applicare Kutools per Excel' Crea un elenco di nomi di fogli utility, creerà un nuovo foglio per elencare tutti i nomi dei fogli collegabili.

Kutools for Excel: + utili strumenti pratici, semplificando le complicate attività in Excel in pochi clic.

Strumenti di produttività consigliati

Scheda Office: navigazione a schede, modifica, gestione di documenti in Microsoft Office 2019 - 2003 e Office 365

Scarica gratis

Un componente aggiuntivo professionale per l'accelerazione di Excel 2019-2007, riduce le ore di attività in secondi

Questo componente aggiuntivo include dozzine di gruppi professionali, con oltre 300 opzioni automatizzerà la maggior parte delle attività quotidiane in Excel e aumenterà la produttività almeno del 50%. Come gruppi di opzioni con un clic e conversioni batch.
Ora hai la possibilità di velocizzarti con Kutools per Excel!

Scarica gratis