Excelente aporte, esto funcionaría para Windows, hay algún cambio a la macro para que funcione en Mac OSX= o que funcione para ambas sería una gran ayuda ya que tengo usuarios de Windows y Mac OSX, de antemano muchas Gracias por tu Atención.
Aquí hay una explicación que tiene código. Sería cosa de copiarlo y pegarlo a ver si funciona. stackoverflow.com/questions/12263016/is-there-a-mac-pc-variant-of-application-getopenfilename
Function nombreArchivo(ruta) For i = Len(ruta) To 1 Step -1 If Mid(ruta, i, 1) = "\" Then Exit For nombreArchivo = Mid(ruta, i, 1) & nombreArchivo Next i End Function
Excelete, cuando estaba a punto de rendirme y gracias a usted la encontre justo como la necesitaba. Gracias
una pregunta como puedo hacer que mi macro lea los primeros 4 caracteres del nombre de mi archivo en ruta?
Excelente aporte, esto funcionaría para Windows, hay algún cambio a la macro para que funcione en Mac OSX= o que funcione para ambas sería una gran ayuda ya que tengo usuarios de Windows y Mac OSX, de antemano muchas Gracias por tu Atención.
Aquí hay una explicación que tiene código. Sería cosa de copiarlo y pegarlo a ver si funciona.
stackoverflow.com/questions/12263016/is-there-a-mac-pc-variant-of-application-getopenfilename
Muchas gracias por tu ayuda, muy agradecido
Hola, muchas gracias excelente explicación. Tengo otra duda, como puedo extraer solamente el nombre del archivo seleccionado sin la ruta?
Puedes usar una función que busque la diagonal inversa... Ahorita la pongo.
Function nombreArchivo(ruta)
For i = Len(ruta) To 1 Step -1
If Mid(ruta, i, 1) = "\" Then Exit For
nombreArchivo = Mid(ruta, i, 1) & nombreArchivo
Next i
End Function
Me funciono muy bien!