Wie kann man schnell die Namen von Bildern/Dateien eines Ordners in Excel-Zellen auflisten?

In diesem Tutorial zeige ich Ihnen einige Tricks, wie Sie schnell alle Bildnamen oder Dateinamen eines bestimmten Ordners in einem Excel-Arbeitsblatt auflisten können, wie im Screenshot dargestellt. SCHNELLE NAVIGATION >Auflistung der Bildnamen eines Ordners in Excel mit VBA >Auflistung der Bildnamen oder spezifischer Formate von Dateinamen eines Ordners in Excel mit der Funktion „Dateinamenliste“ >Beispieldatei herunterladen

In Excel gibt es keine integrierte Funktion, die automatisch alle Bildnamen eines ausgewählten Ordners in einer Zelle eines Arbeitsblatts auflistet. Aber hier habe ich einen VBA-Code, der Ihnen dabei helfen kann, diese Aufgabe schnell zu erledigen.

1. In Excel drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Im erscheinenden Fenster klicken Sie auf Einfügen > Modul, um ein neues Modulskript zu erstellen.

3. Kopieren Sie den folgenden Code und fügen Sie ihn in das neue Modulskriptfenster ein.

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. Drücken Sie F5 Taste, dann erscheint ein Dialogfeld, in dem Sie eine Zelle auswählen können, um die Bildnamen einzufügen.

5. Klicken Sie auf OK um fortzufahren und den Ordner auszuwählen, dessen Bildnamen Sie im Durchsuchen-Dialog auflisten möchten.

6. Klicken Sie auf OK, nun wurden alle Bildnamen des ausgewählten Ordners in Excel aufgelistet.

Hinweis: Im VBA-Code können Sie jpg/png/… im Code-String If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then durch die benötigte Dateiendung ersetzen. Zum Beispiel, wenn Sie Dateinamen im doc-Format auflisten möchten, ändern Sie den Code-String einfach zu If InStr(1, xFileName, ".doc") > 0 Then.

Wenn Sie regelmäßig die Dateinamen eines oder aller Formate eines Ordners in einer Excel-Zelle auflisten müssen, ist der Code komplex und nicht leicht zu handhaben. Aber mit der folgenden Methode können Sie diese Aufgabe schnell lösen.

Möchten Sie eine Gehaltserhöhung und mehr Zeit haben, um mit Ihrer Familie zusammen zu sein? Office Tab steigert Ihre Effizienz um 50 % bei der Arbeit in Microsoft Office – noch heute. Unglaublich, aber das Arbeiten mit zwei oder mehr Dokumenten ist einfacher und schneller als mit einem einzigen. Im Vergleich zu bekannten Browsern ist das Tab-Tool in Office Tab leistungsstärker und effizienter. Reduzieren Sie hunderte von Mausklicks und Tastatureingaben pro Tag und verabschieden Sie sich von der Maushand. Wenn Sie normalerweise mit mehreren Dokumenten arbeiten, wird Office Tab eine große Zeitersparnis für Sie sein. 30-tägige kostenlose Testversion, keine Kreditkarte erforderlich. WeiterlesenJetzt kostenlos herunterladen

Hier ist ein Hilfsprogramm – Dateinamenliste in Kutools für Excel, das

>> alle Dateinamen in allen Dateiformaten eines Ordners in einem neuen Arbeitsblatt auflisten kann;

>> die Dateinamen in einem oder mehreren von Ihnen angegebenen Formaten in Excel auflisten kann;

>> Dateinamen einschließlich Unterverzeichnisse und versteckte Dateien und Ordner in Excel auflisten kann.

Kostenlose Testversion Verabschieden Sie sich jetzt von Maushand und Zervikaler Spondylose

300 erweiterte Tools von Kutools für Excel lösen 80% Excel-Aufgaben in Sekunden, befreien Sie sich aus Tausenden von Mausklicks.

Einfaches Handling von 1500 Arbeitszenarien, keine Zeitverschwendung für die Suche nach Lösungen, mehr Zeit, um Ihr Leben zu genießen. Steigern Sie die Produktivität für 80% 110000+ hoch effektive Menschen jeden Tag, natürlich einschließlich Ihnen. Nicht länger von schmerzhaften Formeln und VBA gequält werden, geben Sie Ihrem Gehirn eine Pause und arbeiten Sie mit Freude. 30-tägige kostenlose Testversion mit allen Funktionen, 30-tägiges Rückgaberecht ohne Angabe von Gründen. Ein besserer Körper schafft ein besseres Leben.

Mehr lesen Jetzt herunterladen

Nach der kostenlosen Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Aktivieren Sie die Arbeitsmappe, in der Sie die Dateinamen auflisten möchten, und klicken Sie dann auf Kutools Plus > Import/Export > Dateinamenliste.

2. Im Dateinamenliste Dialogfeld klicken Sie zunächst auf um einen Ordner auszuwählen, dessen Dateinamen Sie auflisten möchten. Anschließend können Sie die Kontrollkästchen für Dateien in Unterverzeichnissen einschließen und Versteckte Dateien und Ordner einschließen je nach Bedarf aktivieren.

3. Wählen Sie dann das Dateiformat aus, dessen Namen Sie im Abschnitt „Dateityp“ auflisten möchten.

Aktivieren Sie die Option „Alle Dateien“, um alle Dateinamen in allen Dateiformaten des ausgewählten Ordners aufzulisten.

Aktivieren Sie die Option „Gängige Typen“ und wählen Sie das spezifische Dateiformat, dessen Dateinamen Sie aus der Dropdown-Liste auflisten möchten. Dann werden alle Dateinamen des gewählten Dateiformats aus der Dropdown-Liste aufgelistet.

Aktivieren Sie die Option „Konvertieren“, und geben Sie die Dateiendungen (durch Komma getrennt) ein, deren Dateinamen Sie im Textfeld auflisten möchten. Es werden nur die Dateinamen mit den eingegebenen Dateiendungen in Excel aufgelistet.

4. Wählen Sie die Größeneinheit je nach Bedarf aus der Dropdown-Liste im Abschnitt „Einheit der Dateigröße“. Wenn Sie einen Link zu den Dateinamen erstellen möchten, aktivieren Sie die Option „Hyperlinks erstellen“.

5. Klicken Sie auf Ok, ein neues Arbeitsblatt wird erstellt, um die Dateinamen und einige Dateiinformationen aufzulisten.

Tipp: Wenn Sie alle Arbeitsblattnamen in Excel auflisten möchten, können Sie das Hilfsprogramm „Verknüpfungstabelle erstellen“ von Kutools für Excel verwenden, das ein neues Arbeitsblatt erstellt, um alle verlinkbaren Arbeitsblattnamen aufzulisten. Verknüpfungstabelle erstellen Hilfsprogramm, das ein neues Arbeitsblatt erstellt, um alle verlinkbaren Arbeitsblattnamen aufzulisten.

Kutools für Excel:+ nützliche praktische Tools, die komplexe Aufgaben in Excel auf wenige Klicks reduzieren.