Note: The other languages of the website are Google-translated. Back to English

Wie extrahiere ich schnell den Dateinamen aus dem vollständigen Pfad in Excel?

Angenommen, Sie haben ein Arbeitsblatt, das eine Liste von Dateipfaden enthält, möchten Sie jetzt nur den Dateinamen (den rechten Teil des endgültigen Backslash) aus jedem Pfad extrahieren, wie in den folgenden Screenshots gezeigt. Gibt es schnelle Tricks, um diese Aufgabe zu bewältigen?

Extrahieren Sie den Dateinamen aus dem vollständigen Pfad mit der Formel in Excel
Extrahieren Sie den Dateinamen mit der benutzerdefinierten Funktion aus dem vollständigen Pfad
Extrahieren Sie den Dateinamen aus dem vollständigen Pfad mit VBA-Code


Extrahieren Sie den Dateinamen aus dem vollständigen Pfad mit der Formel in Excel

In Excel können Sie die folgende Formel verwenden, um schnell nur den Dateinamen aus dem vollständigen Pfad zu extrahieren.

Wählen Sie eine leere Zelle aus, geben Sie die folgende Formel ein und drücken Sie die Taste Weiter Key.

=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))

Tipps: A1 ist die Zelle, aus der Sie den Dateinamen extrahieren möchten. Drücken Sie die Eingabetaste und ziehen Sie den Füllpunkt, um den gewünschten Füllbereich zu erhalten. Danach wird der Dateiname aus jeder Zelle extrahiert.

doc Extraktname1


Extrahieren Sie den Dateinamen mit der benutzerdefinierten Funktion aus dem vollständigen Pfad

Mit der folgenden benutzerdefinierten Funktion können Sie den Dateinamen einfach und schnell abrufen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "\")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function

3. Drücken Sie auf Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster und gehen Sie zurück zum Arbeitsblatt. Geben Sie in einer leeren Zelle, z. B. B1, die folgende Formel ein und drücken Sie die Taste Weiter Key.

=FunctionGetFileName(A1)

doc-extract-filenames1

Wählen Sie dann erneut Zelle B1 aus, ziehen Sie den Füllpunkt in den Bereich, in dem Sie diese Formel anwenden möchten, und alle Dateinamen wurden wie folgt aus den vollständigen Pfaden extrahiert:

doc-extract-filenames1


Extrahieren Sie den Dateinamen aus dem vollständigen Pfad mit VBA-Code

Neben der benutzerdefinierten Funktion kann Ihnen ein VBA-Code auch beim Extrahieren der Dateinamen helfen. Bitte machen Sie Folgendes:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Anwendungsfenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    splitList = VBA.Split(Rng.Value, "\")
    Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub

3. Dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und wählen Sie den Bereich aus, aus dem Sie den Dateinamen extrahieren möchten (siehe Abbildung):

doc-extract-filenames1

4. Und dann klick OKwurden die Dateinamen wie folgt aus der Auswahl extrahiert:

Hinweis: Mit diesem VBA-Code werden die Originaldaten zerstört, daher sollten Sie einen kopieren, bevor Sie diesen Code anwenden.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (2)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Die Formel erhöht einen #WERT! Fehler, wenn die Quellzelle zunächst nur einen Dateinamen hat. Das Einbetten der gesamten Formel in eine WENNFEHLER-Funktion löst dieses Problem, z. B. =WENNFEHLER( ,A1)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr nützliche Funktion. Gibt es eine Möglichkeit, das Skript so zu ändern, dass es den Dateinamen findet, wenn der Pfad entweder \ oder / Schrägstriche enthält?

Ich habe eine Tabelle mit verschiedenen Hyperlinks, in denen die zugrunde liegenden Pfade entweder durch \ oder / (Backslash oder Forwardslash) getrennt sind - ich denke, das liegt daran, dass einige der Links zu Dateien ursprünglich nur als Lesezeichen in Word oder zu Dateien in einem internen Ordner erstellt wurden doc-Server. Oder liegt es vielleicht daran, dass einige Pfadverknüpfungen mit absoluten und relativen Pfadverknüpfungen erstellt werden?

z.B:

../../../../Documents/2ndQuarter/2019/standardcost_widget12345.pdf
or
\fileserver\factory23\Operations\Parts_Mgt\Documents\2ndQuarter\2019\standardcost_widget12345.pdf


Als ich die getfilename-Funktion ausführte, erhielt sie alle Dateinamen, die sich in Pfaden mit \ zwischen Verzeichnissen oder Ordnern befanden, aber die Links mit /-Schrägstrichen wurden unverändert zurückgegeben.
Ich habe eine zweite Funktion geändert und hinzugefügt, die ähnlich war, aber das "\" in Zeile 4 durch "/" ersetzt und sie forwardslashgetfilename genannt und in einer separaten Spalte ausgeführt habe, nachdem ich die erste Funktion ausgeführt habe.

Das Ausführen einer Funktion nach der anderen ist nicht schwierig, aber ich war neugierig, ob Sie den Code in der SplitList-Operation in Zeile 4 erweitern können, um sowohl "\" als auch "/" einzuschließen. Ich bin kein VBA-Programmierer, aber ich habe splitList = VBA.Split(FullPath, "\" or "/") ausprobiert und es hat nicht funktioniert.

Gedanken? Ich gehe davon aus, dass es sich um eine einfache Syntax handelt - ich bin an dieser Stelle einfach ahnungslos ... aber ich werde anfangen, in den Interwebs herumzustöbern ...

Tk!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL