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
![30 ชั่วโมงคนเดียว บนรถไฟชั้น 3 โซเวียต [Around The World Ep. 2]](http://i.ytimg.com/vi/MlE9boAVqDA/mqdefault.jpg)
Excelete, cuando estaba a punto de rendirme y gracias a usted la encontre justo como la necesitaba. Gracias
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
Me funciono muy bien!
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
una pregunta como puedo hacer que mi macro lea los primeros 4 caracteres del nombre de mi archivo en ruta?