VBA en Excel; ¿Es posible abrir un explorador de archivos para obtener rutas y nombres de archivo?

Estoy haciendo un programita que me gestione un alto numero de copias selectivas de archivos.

Me faltaría poder abrir y usar un Explorador de Archivos de la siguiente manera;

1.- Abrir el explorador

2.- Seleccionar el o los archivos que quiero obtener Ruta y Nombre

3.- Dar a un boton del navedor (p.e. "obtener Ruta y Nombre") para que la información de Ruta y Nombre se me añadan a una lista que tengo en una hoja de excel... Pero que no se cierre el navegador para poder seguir seleccionando.

4.- Ir a otra carpeta o seleccionar otros archivos y hacer lo mismo que en 3.

Etc etc

5.- Cuando ya esté satisfecho, darle a otro botón del navegador para Cerrar la ventana y volver a la excel.

La idea es realizar esto con infinidad de carpetas y archivos, para que al final tenga una lista de los archivos que quiero copiar.

La copia ya la tengo implementada en una macro aparte.

Estaría muy agradecido por cualquier ayuda.

2 respuestas

Respuesta
4

Ejecuta la siguiente macro para seleccionar uno o varios archivos. Cuando ejecutas la macro te aparece la ventana del explorador de archivos, puedes seleccionar un archivo o varios archivos presionando la tecla Shift y el botón izquierdo del mous o la tecla control y el botón izquierdo del mouse sobre los archivos que necesitas. Presiona aceptar para que los nombres de los archivos con todo y carpeta se pasen a la columna "A".

Cambia en la macro col = "A" por la letra de la columna en donde quieres la lista de archivos.

Sub SeleccionaArchivos()
'Por.Dante Amor
    col = "A"
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione archivo de excel"
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .Filters.Add "xls.*", "*.xls*"
        .FilterIndex = 2
        .AllowMultiSelect = True
        .InitialFileName = ThisWorkbook.Path
        If .Show Then
            For Each arch In .SelectedItems
                ufila = Range(col & Rows.Count).End(xlUp).Row + 1
                Cells(ufila, col) = arch
            Next
        End If
    End With
End Sub

Saludos.Dante Amor

Respuesta
2

Acá hay varios ejemplos que utilizan el navegador, el que más se ajusta es el que habilita multiselect

http://www.programarexcel.com/2014/06/explorador-windows-abre-libro-copia-y.html 

http://www.programarexcel.com/2014/04/explorador-de-archivos-multiselect.html 

http://www.programarexcel.com/2014/01/macro-abre-explorador-de-archivos-de.html 

http://www.programarexcel.com/2014/01/macro-abre-explorador-archivos-inserta.html 

Descarga el archivo con el ejemplo y mira su funcionamiento.

Acá hay más ejemplos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro enviar correo múltiples destinatarios Excel-Lotus

Necesito que el siguiente código que tengo envíe los correos a más de una persona, he intentado colocar en cadena o unirlos con "&" pero no logro que envíe a más de uno. Sub Email1() Dim oSess As Object Dim oDB As Object Dim oDoc As Object Dim oItem...
1 respuesta

Como crear un macro para seleccionar la ruta de un archivo que esta en mi pc desde un browser

Soy nuevo manejando macros aki mi pregunta, necesito seleccionar de forma automática la ruta de un archivo que esta en mi PC, para poder trabajar con la información que esta almacenada en dicho archivo(un Excel), actualmente lo que hago es en una...
1 respuesta

Nombre de archivo en filedialog

Estuve checando la ayuda de VBA y encontre el filedialog ya mas o menos entendi las funciones que realiza. Ahora la rutina para abrir este control es la siguiente Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd =...
1 respuesta

Macro para juntar la información de 4 archivos de excel en una nueva hoja y de 1 archivo aparte en otra

Tengo un macro que juntas hojas pero no cumple con lo que necesito. Me gustaría un macro que me permitiera seleccionar 4 archivos (cambian cada vez) y junte los datos de las primeras hojas de estos archivos en la primera hoja del libro donde estoy...
1 respuesta

Macro para copiar y pegar de un libro a otro

Necesito una macro que copie todos los datos (variables) de una hoja del libro 1 y los pegue tras la útlma fila ocupada en otra hoja pero del libro 2
1 respuesta

Insertar ruta de archivo en un campo

Tengo un campo con imágenes aisladas en una carpeta fuera de la base de datos y las cargo con objeto_imagen.picture "ruta_imagen a visualizar". Lo que me es un engorro es el introducir toda la ruta de la dirección y quisiera que al hacer doble clic...
1 respuesta

Excel y visual

¿Cómo puedo abrir excel y hacer que esta me abra un archivo?. Todo esto dede mi aplicacion en visual basic Ya se que para jecutar excel e esto: dim ret as long ret=shell(c:\xxxx\xx\excel.exe) Y se abre excel, pero ¿Y para abrir un archivo que ya esta...
2 respuestas

Mostrar mail antes de enviar

Disculpa por la molestia; quisiera saber... Tengo una MACRO para enviar un mail, ya adaptada a mis necesidades, funciona de maravilla, pero quisiera que en lugar de enviar el mensaje con la funcion .SEND me la muestre, con .DISPLAY; para que me de...
3 respuestas

Borrar filas y columnas ocultas a la vez

Muchas gracias por brindar todos vuestros conocimientos de manera altruista, quería preguntar sobre alguna macro que borre de manera automática todas las filas y columnas ocultas, pero que sea a la vez, ya que tengo una macro que lo hace pero lo va...
3 respuestas

Exportar a Excel

Estoy desarrollando una forma bastante simple (2 campos y un botón) que basícamente lo que hace es una búsqueda en una tabla y exporta los datos a Excel. Eso lo hago bien, pero gustaría saber cual es el nombre de las propiedades de las celdas para...
4 respuestas