Hoe haalt u snel de bestandsnaam uit een volledig pad in Excel?
Stel dat u een werkblad hebt met een lijst van Bestandspad. U wilt nu alleen de bestandsnaam (het gedeelte rechts van de laatste backslash) uit elk pad halen, zoals op de volgende schermafbeeldingen te zien is. Zijn er snelle trucs om deze taak uit te voeren?
Bestandsnaam uit volledig pad halen met formule in Excel
Bestandsnaam uit volledig pad halen met een door de gebruiker gedefinieerde functie
Bestandsnaam uit volledig pad halen met VBA-code
Bestandsnaam uit volledig pad halen met formule in Excel
In Excel kunt u onderstaande formule gebruiken om snel alleen de bestandsnaam uit het volledige pad te extraheren.
Selecteer een lege cel, voer de onderstaande formule in en druk daarna op de Enter-toets.
=MID(A1,FIND(„*",SUBSTITUTE(A1,"\",„*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",„"))))+1,LEN(A1))
Tips: A1 is de cel waaruit u de bestandsnaam wilt halen. Druk op Enter en sleep vervolgens de vulgreep naar het bereik dat u wilt invullen — daarna wordt de bestandsnaam uit elke cel gehaald.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Bestandsnaam uit volledig pad halen met een door de gebruiker gedefinieerde functie
Met de volgende door u gedefinieerde functie haalt u eenvoudig en snel de bestandsnaam op.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
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. Druk op de toetsencombinatie Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten en terug te keren naar het werkblad. Voer in een lege cel, bijvoorbeeld B1, de onderstaande formule in en druk op de Enter-toets.
=FunctionGetFileName(A1)
Selecteer cel B1 vervolgens opnieuw, sleep de vulgreep naar het bereik waarop u deze formule wilt toepassen en alle bestandsnamen zijn uit de volledige paden gehaald, zoals in het volgende resultaat:
Bestandsnaam uit volledig pad halen met VBA-code
Naast de door u gedefinieerde functie kunt u ook VBA-code gebruiken om bestandsnamen op te halen. Volg deze stappen:
1. Houd de toetsen ALT + F11ingedrukt om het venster Microsoft Visual Basic for Applicationste openen.
2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.
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. Druk vervolgens op de toets F5 om deze code uit te voeren en selecteer het bereik waaruit u de bestandsnaam wilt halen; zie de schermafbeelding:
4. Klik daarna op OK; de bestandsnamen zijn nu uit de selectie verwijderd, zoals hieronder te zien is:
Opmerking: Deze VBA-code overschrijft de oorspronkelijke gegevens. Maak daarom eerst een kopie voordat u de code toepast.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins