Wie kann man schnell den Dateinamen aus dem vollständigen Pfad in Excel extrahieren?
Angenommen, Sie haben ein Arbeitsblatt, das eine Liste von Dateipfaden enthält, und Sie möchten nun nur den Dateinamen (den rechten Teil nach dem letzten Backslash) aus jedem Pfad extrahieren, wie in den folgenden Screenshots gezeigt. Gibt es schnelle Tricks, um diese Aufgabe zu erledigen?
Dateinamen aus dem vollständigen Pfad mit Formel in Excel extrahieren
Dateinamen aus dem vollständigen Pfad mit einer benutzerdefinierten Funktion extrahieren
Dateinamen aus dem vollständigen Pfad mit VBA-Code extrahieren
Dateinamen aus dem vollständigen Pfad mit Formel in Excel extrahieren
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 dann die Eingabetaste.
=TEIL(A1;FINDEN("*";WECHSELN(A1;"\";"*";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"\";""))))+1;LÄNGE(A1))
Tipp: A1 ist die Zelle, aus der Sie den Dateinamen extrahieren möchten), und drücken Sie die Eingabetaste, dann ziehen Sie den Ausfüllkursor über den gewünschten Bereich. Danach wird der Dateiname aus jeder Zelle extrahiert.
Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Dateinamen aus dem vollständigen Pfad mit einer benutzerdefinierten Funktion extrahieren
Mit der folgenden benutzerdefinierten Funktion können Sie den Dateinamen einfach und schnell erhalten.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.
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 die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen und zurück zum Arbeitsblatt zu gelangen. Geben Sie in einer leeren Zelle, z.B. B1, die folgende Formel ein und drücken Sie die Eingabetaste.
=FunctionGetFileName(A1)
Wählen Sie dann die Zelle B1 erneut aus, ziehen Sie den Ausfüllkursor über den Bereich, auf den Sie diese Formel anwenden möchten, und alle Dateinamen werden aus den vollständigen Pfaden extrahiert, wie im folgenden Ergebnis gezeigt:
Dateinamen aus dem vollständigen Pfad mit VBA-Code extrahieren
Neben der benutzerdefinierten Funktion kann auch ein VBA-Code Ihnen helfen, die Dateinamen zu extrahieren. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im 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. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und wählen Sie den Bereich aus, aus dem Sie den Dateinamen extrahieren möchten, siehe Screenshot:
4. Klicken Sie anschließend auf OK, und die Dateinamen wurden aus der Auswahl wie folgt extrahiert:
Hinweis: Mit diesem VBA-Code werden die Originaldaten überschrieben, daher sollten Sie vor der Anwendung des Codes eine Kopie erstellen.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins