Saltar al contenido
Pirtrafilla

Seleccionar carpeta predeterminada

Recommended Posts

Hola a todos de nuevo.

Tengo un problema y os pido de nuevo ayuda, si es posible.

Tengo este código para seleccionar un archivo Excel.

Private Sub CommandButton1_Click()
    RutaB = Application.GetOpenFilename("Archivos Excel (*.xlsm*), *.xlsm*")
    LblRutaN.Caption = RutaB
End Sub

Lo que quiero es seleccionar una carpeta, no un fichero. Es decir, que en el cuadro de diálogo me pida SOLO LA CARPETA donde elegir para guardarlo en una variable que utilizaré a posteriori.

Como siempre, gracias por adelantado.

Moisés.

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Te sirve esto:

Sub getfolder_LBV()
Dim Secfolder As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Get folder"
        .ButtonName = "Aceptar"
        .InitialFileName = "C:\"
        If .Show = -1 Then
            Secfolder = .SelectedItems(1)
            MsgBox (Secfolder)
        Else
        End If
    End With
End Sub


 

Saludos.

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Muchas gracias @Leopoldo Blancas, perfecto. Lo he adaptado y ya está. Tema solucionado!!

Private Sub CommandButton1_Click()
Dim Secfolder As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Get folder"
        .ButtonName = "Aceptar"
        .InitialFileName = ActiveWorkbook.Path & "\"
        If .Show = -1 Then
            RutaB = .SelectedItems(1)
            LblRutaN.Caption = RutaB
        Else
        End If
    End With
End Sub

 

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
Hace 10 minutos , Pirtrafilla dijo:

Hace tiempo que no entraba, el trabajo veces quita casi todo el tiempo. Voy a mirar de entrar más a menudo.

Es muy agradable seguir el foro y desde luego se aprende mucho.

Gracias!!!

Si... entiendo. Yo mientras planeo que hacer en el año, voy a estar por aquí seguido... pero si decido otras cosas ya solo entrare de vez en cuando...

Saludos.

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
Invitado
Este tema está cerrado a más respuestas.

×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.