Cómo puedo leer todos los archivos de una carpeta y ponerlos en una hoja de excel
Expertos, me pueden ayudar con una macro para leer todos los archivos de una carpeta que yo elija y ponerlos en una hoja de excel.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, ejecuta la macro sobre la hoja en la que quieres la lista de los archivos.
Sub listar_archivos()
'Por.Dante Amor
'***Macro, Lee archivos de un directorio y los pone en la columna A
'
ruta = ThisWorkbook.Path
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Selecciona una carpeta"
.AllowMultiSelect = False
.InitialFileName = ruta
If .Show <> -1 Then Exit Sub
cp = .SelectedItems(1)
End With
'
ChDir cp & "\"
Range("A:A").Clear
i = 1
archi = Dir("*")
Do While archi <> ""
Cells(i, "A") = archi
i = i + 1
archi = Dir()
Loop
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
