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 Enter Key.
=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))
Tips: 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 Enter 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:
Note: Mit diesem VBA-Code werden die Originaldaten zerstört, daher sollten Sie einen kopieren, bevor Sie diesen Code anwenden.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 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 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!