Llenar Combobox con Archivos al Elegir Carpeta
Buenas tardes. Por favor si me ayudan con esta necesidad que tengo. Como lo muestro en la figura de arriba necesito ayuda para los códigos para que el userform me permita elegir libremente una carpeta del directorio, luego, el combobox se llene automáticamente con los archivos que están dentro de la carpeta elegida y, al elegir o seleccionar un item (archivo) de los listados dentro del combobox éste se abra dentro del webbrowser en la parte inferior del userform. Muchas gracias si alguno de ustedes me pueden ayudar con esta necesidad. Pueden descargar el archivo excel con el userform listo para programar haciendo clic AQUÍ. Muchas gracias si alguien
Te anexo el código para:
- - Abrir el explorador y selecciones una carpeta
- - Almacenar la carpeta en el textbox1
- - Cargar los archivos pdf en el combobox1
- - El código para abrir un pdf en webbrowser ya te lo había enviado en esta pregunta:
Ver PDF en Web Browser a partir de Combobox
(En la cual no has comentado ni valorado).
Aquí el código:
Private Sub CommandButton1_Click() Dim arch As Variant ' With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecciona una carpeta" .AllowMultiSelect = False .InitialFileName = ThisWorkbook.Path & "\" If .Show <> -1 Then Exit Sub TextBox1.Value = .SelectedItems(1) arch = Dir(TextBox1.Value & "\*.pdf") Do While arch <> "" ComboBox1.AddItem arch arch = Dir() Loop End With End Sub
Nota: Esto es para una tarea escolar?
Si es para una tarea de la escuela, deberás mostrar interés por aprender y no solamente copiar la respuesta.
Muchas gracias.
Alberto
Me alegra saber que funciona para tií. No o l v i d e s valorar la respuesta. ¡Gracias! Por comentar.
