Anónimo
Como arbrir y/o ejecuar cualquier archivo desde Combobox VBA
la idea es básicamente que el combobox me muestre un listado de todos los archivos que se encuentran en una carpeta determina seleccionar el archivo y con ayuda de un commandbotton abrir o ejecutar el archivo para visualizarlo espero puedan ayudarme GRACIAS POR EL TIEMPO
1 Respuesta
Respuesta de Freddy Maihuire
1
Tu deseas abrir cualquier tipo de archivo o solamente archivos de excel.
Con este código podrás abrir tus archivos que estén en una ruta determinada.
Sigue estos pasos:
- Inserta un formulario en Vba
-Crea los controles ComboBox1 y CommandButton1
-Ingresa el código y pega este código
'Declaramos una Constante ruta desde la cual cargaremos los archivos
Const RUTA = "D:\Ficheros\"
Private Sub CommandButton1_Click()
On Error GoTo Valida
ActiveWorkbook.FollowHyperlink RUTA & Me.ComboBox1.Text
Exit Sub
Valida:
MsgBox Err.Description, vbCritical, "Error"
End Sub
Sub ListarArchivos()
'Creamos el objeto FileSystemObject que
'Nos proporciona acceso al sistema de archivos de un equipo
Set fso = CreateObject("Scripting.FileSystemObject")
'definimos dos variables que necesitaremos,
'para recuperar el nombre de la carpeta, y los ficheros que haya dentro
Set Carpeta = fso.GetFolder(RUTA)
Set ficheros = Carpeta.Files
For Each archivo In ficheros
'Cargamos los archivos en el combobox1
Me.ComboBox1.AddItem archivo.Name
Next archivo
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Limpiamos los objetos y variables definidas
Set fso = Nothing
Set Carpeta = Nothing
Set ficheros = Nothing
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Me.ListarFicherosCarpeta
End SubEspero haberte ayudado. No olvides puntuar la respuesta.