¿Cómo extraer rápidamente el nombre de archivo de la ruta completa en Excel?
Supongamos que tiene una hoja de trabajo que contiene una lista de rutas de archivo, ahora le gustaría extraer solo el nombre del archivo (la parte derecha de la barra invertida final) de cada ruta como se muestra a continuación. ¿Hay algunos trucos rápidos para hacer frente a esta tarea?
Extraiga el nombre de archivo de la ruta completa con fórmula en Excel
Extraiga el nombre de archivo de la ruta completa con la función definida por el usuario
Extraiga el nombre de archivo de la ruta completa con código VBA
Extraiga el nombre de archivo de la ruta completa con fórmula en Excel
En Excel, puede usar la siguiente fórmula para extraer rápidamente solo el nombre del archivo de la ruta completa.
Seleccione una celda en blanco, ingrese la fórmula a continuación y luego presione el botón Participar clave.
=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))
Propina: A1 es la celda de la que desea extraer el nombre de archivo) y presione el botón Entrar, luego arrastre el controlador de relleno para llenar el rango que desee. Después de eso, el nombre del archivo se extrae de cada celda.
Extraiga el nombre de archivo de la ruta completa con la función definida por el usuario
Con la siguiente función definida por el usuario, puede obtener el nombre del archivo fácil y rápidamente.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
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. Pulse el botón otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana y vuelva a la hoja de trabajo. En una celda en blanco, B1 por ejemplo, ingrese la siguiente fórmula y presione el botón Participar clave.
=FunctionGetFileName(A1)
Luego, seleccione la celda B1 nuevamente, arrastre el controlador de relleno al rango en el que desea aplicar esta fórmula, y todos los nombres de archivo se han extraído de las rutas completas como resultado:
Extraiga el nombre de archivo de la ruta completa con código VBA
Además de la función definida por el usuario, un código VBA también puede ayudarlo a extraer los nombres de archivo. Por favor haz lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
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. Entonces presione F5 para ejecutar este código y seleccione el rango del que desea extraer el nombre de archivo, vea la captura de pantalla:
4. Y luego haz clic OK, los nombres de archivo se han extraído de la selección de la siguiente manera:
Note: Con este código VBA, los datos originales serán destruidos, por lo que debe copiar uno antes de aplicar este código.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!