Con datos de una carpeta (directorio) a un combobox
Para el Sr.Dante Amor.
Buenos días, me gustaría saber si es posible lo siguiente: en un userform quiero insertar un combobox que cuando se active el userform, se carge con los nombres de los ficheros que se encuentran en una carpeta dentro “de mis imágenes”. La carpeta se llama TARIFAS, pues bien, los ficheros que están dentro, serán siempre PDF. Y si selecciono uno de ellos pues se abra dicho fichero.
\\MARTA-PC\Users\Marta\Pictures\TARIFAS
Quedo a su disposición para las dudas que se presente y no obstante vuelvo a agradecer su ayuda con esta y otras dudas que me ha solucionado anteriormente.
Un abrazo.
2 respuestas
H o l a:
Pon el siguiente código en tu userform
Private Sub ComboBox1_Change() 'Por.Dante Amor 'abrir pdf ruta = "\\MARTA-PC\Users\Marta\Pictures\TARIFAS" 'ruta = "C:\trabajo\" If Dir(ruta & ComboBox1) <> "" Then ActiveWorkbook.FollowHyperlink ruta & ComboBox1 End If End Sub ' Private Sub UserForm_Activate() 'Por.Dante Amor 'Cargar los nombres ruta = "\\MARTA-PC\Users\Marta\Pictures\TARIFAS" 'ruta = "C:\trabajo\" arch = Dir(ruta & "*.pdf") Do While arch <> "" ComboBox1.AddItem arch arch = Dir() Loop End Sub
Hola Dante, muchas gracias por la pronta respuesta, pero lo he copiado y no me carga el combobox, en este caso era el combobox3, lo corregí pero nada... Hay una cosa que me resulta extraña. La ruta de acceso según de donde la copie me da un resultado u otro. Pongo fotos:
He puesto ambas direcciones y no funciona, ¿que hago mal?. Espero su respuesta. Gracias.
Un abrazo
Faltó poner una diagonal al final de la ruta, debe ser así:
ruta = "\\MARTA-PC\Users\Marta\Pictures\TARIFAS\"
tienes que cambiarla en los 2 eventos y cambiar combobox1 por 3, también en los 2 eventos.
http://www.programarexcel.com/2014/01/listar-archivos-y-subcarpetas-con-macro.html
http://www.programarexcel.com/2013/11/formulario-con-combobox-lista-hojas-de.html
El primer ejemplo lista archivos y carpeta y el segundo muestra como cargar un combobox, solo debes modificar y cargar los archivos listados al combobox
http://www.programarexcel.com/2014/01/combobox-lista-archivos.html
Este ejemplo carga en el comobox los archivos listados
En este link tienes más ejemplos