In diesem Tutorial werde ich einige Tricks bereitstellen, mit denen Sie schnell alle Bild- oder Dateinamen eines bestimmten Ordners in einer Excel-Tabelle wie im gezeigten Screenshot auflisten können. SCHNELLE NAVIGATION >Listen Sie die Bildnamen eines Ordners in Excel mit VBA auf >Listen Sie Bildnamen oder Dateinamen eines bestimmten Formats eines Ordners in Excel mit Dateinamenliste auf >Beispieldatei herunterladen

In Excel gibt es keine integrierte Funktion, mit der automatisch alle Bildnamen eines Ordners aufgelistet werden können, den Sie in einer Zelle eines Blattes ausgewählt haben. Hier habe ich jedoch einen VBA-Code, mit dem Sie diesen Job schnell lösen können.

1. Drücken Sie in Excel auf Andere + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im Popup-Fenster auf Insert > Modul um ein neues Modul-Skript zu erstellen.

3. Kopieren Sie den folgenden Code und fügen Sie ihn in das neue Modul-Skriptfenster 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 Wenn Sie die Taste drücken, wird ein Dialogfeld angezeigt, in dem Sie eine Zelle zum Platzieren der Bildnamen auswählen können.

5 Klicken OK Um mit der Auswahl des Ordners fortzufahren, in dem Sie die Bildnamen im Dialogfeld "Durchsuchen" auflisten möchten.

6 Klicken OKJetzt wurden alle Bildnamen im ausgewählten Ordner in Excel aufgelistet.

Hinweis: Im VBA-Code können Sie jpg / png /… in der Codezeichenfolge eingeben Wenn InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Dann Wenn Sie beispielsweise die Dateierweiterung der Dateierweiterung im Dokumentformat auflisten möchten, ändern Sie nur die Codezeichenfolge in Wenn InStr (1, xFileName, ".doc")> 0, dann.

Wenn Sie in Ihrer täglichen Arbeit normalerweise die Dateinamen eines oder aller Formate eines Ordners in einer Excel-Zelle auflisten müssen, ist der Code komplex und nicht einfach zu handhaben. Mit der folgenden Methode können Sie diesen Job jedoch schnell lösen.

Möchten Sie eine Gehaltserhöhung und viel Zeit haben, um mit der Familie zusammen zu sein? Mit der Registerkarte "Office" können Sie Ihre Effizienz in Microsoft Office um 50% steigern Es ist unglaublich, dass die Arbeit an zwei oder mehr Dokumenten einfacher und schneller ist als die Arbeit an einem. Im Vergleich zu bekannten Browsern ist das Tool mit Registerkarten in Office Tab leistungsfähiger und effizienter. Reduzieren Sie jeden Tag Hunderte von Mausklicks und Tastatureingaben. Verabschieden Sie sich jetzt von der Maushand. Wenn Sie normalerweise an mehreren Dokumenten arbeiten, spart Office Tab viel Zeit. 30-tägige kostenlose Testversion, Keine Kreditkarte benötigt. WeiterlesenKostenloser Download jetzt

Hier ist ein Dienstprogramm - Dateinamenliste in Kutools for Excel, Denen

>> liste alle Dateinamen in allen Dateiformaten eines Ordners in einem neuen Blatt auf;

>> Listen Sie die Dateinamen in einem oder mehreren Dateiformaten auf, die Sie in Excel angegeben haben.

>> Listen Sie Dateinamen einschließlich Unterordnern und versteckten Dateien und Ordnern in Excel auf.

Kostenlose Test Verabschieden Sie sich jetzt von Maushand und zervikaler Spondylose

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

Bewältigen Sie problemlos 1500 Arbeitsszenarien, verschwenden Sie keine Zeit mit der Suche nach Lösungen und haben Sie viel Zeit, Ihr Leben zu genießen. Verbessern Sie die Produktivität von mehr als 80 hocheffektiven Menschen jeden Tag um 110000 %, natürlich auch für Sie. Lassen Sie sich nicht mehr von schmerzhaften Formeln und VBA quälen, sondern geben Sie Ihrem Gehirn eine Pause und eine fröhliche Arbeitsstimmung. 30-tägige kostenlose Testversion mit vollem Funktionsumfang, 30-tägige Geld-zurück-Garantie ohne Angabe von Gründen. Ein besserer Körper schafft ein besseres Leben.

Weiterlesen Jetzt herunterladen

Gehen Sie nach der kostenlosen Installation von Kutools für Excel wie folgt vor:

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

2. In dem Dateinamenliste Dialog, klicken Sie zunächst  Um einen Ordner auszuwählen, in dem die Dateinamen aufgelistet werden sollen, können Sie die Kontrollkästchen von aktivieren Dateien in Unterverzeichnisse aufnehmen und Schließen Sie versteckte Dateien und Ordner ein wie du es brauchst.

3. Wählen Sie dann das Dateiformat aus, in dem Sie die Namen auflisten möchten Dateityp .

Shau Alle Dateien Mit dieser Option werden alle Dateinamen in allen Dateiformaten im ausgewählten Ordner aufgelistet

Shau gemeinsam Wählen Sie das gewünschte Dateiformat aus, in dem Sie die Dateinamen aus der Dropdown-Liste auflisten möchten. Anschließend werden alle Dateinamen des von Ihnen ausgewählten Dateiformats in der Dropdown-Liste aufgelistet

Shau Angeben Geben Sie dann die Dateierweiterungen ein (geben Sie sie durch Komma ein), um die Dateinamen im Textfeld aufzulisten. Anschließend werden nur die Dateinamen mit den eingegebenen Dateierweiterungen in Excel aufgelistet

4. Wählen Sie die gewünschte Größeneinheit aus der Dropdown-Liste in Dateigrößeneinheit Abschnitt, wenn Sie einen Link zu den Dateinamen erstellen möchten, überprüfen Sie Erstellen Sie Hyperlinks .

5 Klicken Okwird ein neues Blatt erstellt, in dem die Dateinamen und einige Dateiinformationen aufgelistet sind.

TIPP: Wenn Sie alle Blattnamen in Excel auflisten möchten, können Sie Kutools für Excel anwenden. Liste der Blattnamen erstellen Dienstprogramm, es wird ein neues Blatt erstellt, um alle verknüpfbaren Blattnamen aufzulisten.

Kutools for Excel: + nützliche praktische Tools, die die komplizierten Aufgaben in Excel mit wenigen Klicks vereinfachen.

Empfohlene Produktivitätswerkzeuge

Registerkarte "Office" - Durchsuchen, Bearbeiten und Verwalten von Dokumenten in Microsoft Office 2019 - 2003 und Office 365

Free Download

Als professionelles Add-In zur Beschleunigung von Excel 2019-2007 können Sie Stundenaufgaben auf Sekunden reduzieren

Dieses Add-In umfasst Dutzende von Berufsgruppen mit mehr als 300 Optionen, die die meisten Ihrer täglichen Aufgaben in Excel automatisieren und Ihre Produktivität um mindestens 50% steigern. Zum Beispiel Gruppen von Ein-Klick-Optons und Stapelkonvertierungen.
Jetzt ist es Ihre Chance, sich mit Kutools for Excel zu beschleunigen!

Free Download