Abrir una carpeta con macros
Buen dia :
Gracias por atender este mensaje, estoy intentando abrir una carpeta con macros, para ser especifico yo le digo que ruta abrir, pero no me abre esa ruta, mi código es el siguiente :
Dim carpeta As String
Dim ruta As String
carpeta = "C:\Users\"
Range("IU65534").Value = Application.UserName
user = Range("IU65534").Value
ruta = "\Documents\Diagnostica Data\2014"
Call Shell("explorer.exe " & carpeta & user & ruta, vbNormalFocus)
Solo consigo que me abra hasta la ruta :
C:\Users\Administrador\Documents
Nota : como la macro la ejecutaran varios usuarios, por eso puse la instrucción Application.username
Saludos y espero me puedas ayudar.
1 respuesta
Pues lo que me parece es que has equivocada la ruta.. pero como esa ruta es diferente según cada PC, yo no puedo ni confirmarlo ni descartarlo...
Prueba buscando la ruta en el Explorador y cópiala... tal cual aparezca... para esto ve dentro de la carpeta "2014" y haz doble click al lado de la linea donde indica que estas en esta carpeta... verifica si la ruta completa no tiene alguna diferencia con lo que has escrito...
Otra observación... El UserName (del Excel)... no necesariamente coincide con el Usuario de Windows... en mi PC por ejemplo no es asi... el de Excel ha grabado mi nombre completo y el de Windows solo mi primer nombre
