Como poder abrir una carpeta excel 2007 a través de un userform
Hola experto
necesito abrir carpetas a base de un userform y no tengo forma de hacerlo creo que el código que intento no es
Private Sub CommandButton2_Click()
Call Shell("explorer.exe " & carpeta, vbNormalFocus)
Call .AbrirCarpeta("k:\CAB\CATALOGOS")
Me.Hide
End Sub
un saludo
1 respuesta
Prueba con esto:
Private Sub CommandButton2_Click()
On Error Resume Next
Set navegador = CreateObject("shell.application")
Set carpeta = navegador.browseforfolder(0, "seleccione carpeta", 0, ActiveWorkbook.Path).items.Item.Path
unload me
end subrecuerda finalizar y puntuar
Hola Experto
me abre un listado de todas las carpetas.
eso me va muy bien para saber cuantas carteras tengo
pero no me deja abrir la cartera solicitada
Private Sub CommandButton5_Click()
On Error Resume Next
Set navegador = CreateObject("shell.application")
Set carpeta = navegador.browseforfolder(0, "Fotos", 0, ActiveWorkbook.Path).items.Item.Path
Unload Me
Me.Hide
End Sub
Lo que se abre es un browse de carpetas para poder navegar por ellas y puedes elegir la que desees. De todas formas también te puede servir esto:
Private Sub CommandButton5_Click()
Application.GetOpenFilename
End Sub
