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.
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)
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:
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):
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.
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!
