Extraer parte de un string

[mrocf]

Hola! hzapata9.
1º) Presiona simultáneamente las dos teclas <Alt> <F8>
2º) En Nombre de la macro escribe: Prueba, y haz clic en el botón Crear.
3º) Te aparecerá una ventana con:

Código PHP:

  Sub Prueba() 
 
End Sub  
   

que reemplazarás TOTALMENTE por lo siguiente:

Código:

Function MyFileName(MyFile As String)
MyFileName = CreateObject("Scripting.FileSystemObject").GetBaseName(MyFile)
End Function 

4º) Cierra todas las ventanas del ambiente Visual Basic for Application en el que te encuentras y retorna al Excel.


A partir de entonces, si en la celda [A1] tienes:
[A1] = C:\Documents and Settings\apta\myotherdrive.properties

entonces la fórmula:
= MyFileName(A1)

te devolverá el valor: myotherdrive

Espero te haya sido de utildad.

Saludos, Cacho.
...