Como listar archivos de una carpeta en un Listbox VBA
Tengo el siguiente código en el cual al ejecutarlo en la celda A1 me pone el nombre de todos los archivos que estan en esa carpeta, pero quisiera me pudieran apoyar de favor a que ese mismo procedimiento me lo de pero en un listbox de un formulario y al seleccionar alguno se pueda ejecutar el archivo.
Dim Archivos, Carpeta As String Dim Fila, Columna As Integer Carpeta = ThisWorkbook.Path & "\Prueba1\Prueba2\" If Carpeta = "" Then Exit Sub Else If Right(Carpeta, 1) <> "\" Then Carpeta = Carpeta & "\" End If End If Fila = 1 Columna = 1 Archivos = Dir(Carpeta) Do While Len(Archivos) > 0 Cells(Fila, Columna).Value = Archivos Archivos = Dir() Fila = Fila + 1 Loop
1 respuesta
Respuesta de Dante Amor
1
Te anexo el código para tu form
Crea un commandbutton1 en tu form, abre el form presiona el botón para que se carguen los nombres de los archivos.
Presiona doble click sobre el archivo que quieras abrir.
Private Sub CommandButton1_Click() 'Cargar Archivos en un listbox Dim Carpeta As String, Archivo As String Carpeta = ThisWorkbook.Path & "\Prueba1\Prueba2\" If Carpeta = "" Then Exit Sub If Right(Carpeta, 1) <> "\" Then Carpeta = Carpeta & "\" ' Archivos = Dir(Carpeta) Do While Len(Archivos) > 0 ListBox1.AddItem Archivos Archivos = Dir() Loop End Sub ' Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'abrir el archivo al presionar doble clic sobre el registro Dim Carpeta As String Carpeta = ThisWorkbook.Path & "\Prueba1\Prueba2\" If Carpeta = "" Then Exit Sub If Right(Carpeta, 1) <> "\" Then Carpeta = Carpeta & "\" ActiveWorkbook.FollowHyperlink Carpeta & ListBox1.List(ListBox1.ListIndex) End Sub
.
.
