Extraer parte de un string

[hzapata9]

Amigos,

recurro a uds. porque no he podido conseguir lo que quiero

resulta que tengo una planilla en la cual una columna me esta indicando la ruta de mis archivos (incluyendo nombre y extension)

C:\Documents and Settings\apta\myotherdrive.properties

y lo que quiero extraer y poner en otra columna es solo el nombre del archivo si su extensión: "myotherdrive"

Estoy usando Excell 2003 en inglés, favor de ayudarme

Gracias

[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.
...