Operación con archivos

24/01/2007 - 13:40 por Nacho | Informe spam
Hola amigos,

¿Es posible que excel escriba en unas celdas los nombres de todos los
archivos de una carpeta dada? . Gracias
 

Leer las respuestas

#1 J.P.
24/01/2007 - 14:30 | Informe spam
Buenos Dias
Este es un aporte de Héctor Miguel, a una consulta que yo hice,
revisalo creo que es lo que necesitas

hola [de nuevo], jose !


... macro... recorra el cd (logico tendria que darle el nombre de la unidad)
y que en una hoja de excel me escriba todos los archivos y carpetas que existan.




un ejemplo: PERO... primero establece una referencia en tu proyecto de
vba a la libreria:
-> Microsoft Scripting RunTime [menu: herramientas / referencias]

pones la unidad logica de tu CD [p.e.] d:\ -> en la celda 'A1'
copias/pegas las siguientes lineas en un modulo de codigo general... y
la ejecutas :))


saludos,
hector.


Sub Lista_de_archivos(): Application.ScreenUpdating = False
Range("a3") = "Archivos:"
Lista_archivos_en Range("a1"), True
End Sub
Sub Lista_archivos_en(Carpeta As String, Completo As Boolean)
Dim fso As FileSystemObject, Ruta As Folder, _
SubCarpeta As Folder, Archivo As File, Fila As Long
Set fso = New Scripting.FileSystemObject: Set Ruta fso.GetFolder(Carpeta)
Fila = Range("a65536").End(xlUp).Row + 1
For Each Archivo In Ruta.Files
With Archivo: On Error Resume Next
Range("a" & Fila) = .Path
End With: Fila = Fila + 1
Next
If Completo Then
For Each SubCarpeta In Ruta.SubFolders
Lista_archivos_en SubCarpeta.Path, True
Next
End If: Columns("a:a").AutoFit
Set Ruta = Nothing: Set fso = Nothing
End Sub




On 24 ene, 07:40, "Nacho" wrote:
Hola amigos,

¿Es posible que excel escriba en unas celdas los nombres de todos los
archivos de una carpeta dada? . Gracias

Preguntas similares