Leer todos los archivos de excel de una carpeta
Quiero poner en una columna los nombres de los archivos de excel. La pregunta es la siguiente es posible que con una macro se lean todos los nombres de los archivos de excel de una carpeta que yo seleccione y me los ponga en una hoja.
Gracias expertos.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, selecciona la carpeta y la macro pondrá la lista de archivos en la columna A de la hoja que tengas activa.
Sub NombresArchivos()
'Por.Dante Amor
ruta = ThisWorkbook.Path
Set ruta = Application.FileDialog(msoFileDialogFolderPicker)
With ruta
.Title = "Selecciona una carpeta"
.AllowMultiSelect = False
.InitialFileName = ruta
If .Show <> -1 Then Exit Sub
cp = .SelectedItems(1)
End With
'
ChDir cp & "\"
archi = Dir("*.xls*")
i = 2
ActiveSheet.Columns("A").ClearContents
Do While archi <> ""
Cells(i, "A") = archi
i = i + 1
archi = Dir()
Loop
MsgBox "Terminado"
End SubSaludos.Dante Amor
Si es lo que necesitas.
