Jump to content
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.

 

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

 

 

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png