Excel - informacion

   
Vista:

informacion

Publicado por armando (1 intervención) el 17/12/2008 03:29:31
alguien que me pueda orientar a como
sustraer la informacion de nombre y fecha de creacion de unos archivos que estan depositados en c:prueba y eso datos colocarlos en una hoja de excel diariamente, es decir que si de van depositando otros con otros nombre y otros horarios se vayan agregando al mismo documento creado.

ojala pudieran ayudarme

saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:informacion

Publicado por Abraham Valencia (2418 intervenciones) el 17/12/2008 18:45:24
UN EJEMPLO

'el siguiente ejemplo [que puedes adaptar para otras necesidades]...
' 1) 'toma' la carpeta predeterminada que pongas en 'A1' [p.e. -> c: uta ysub-carpeta]
' nota: puedes omitir el separador de rutas final ->
' 2) 'toma' los criterios [EXTensiones] que pongas en algun rango [p.e. 'A2:B2'] del tipo: *.doc y/o *.xls
' nota: el asterisco es necesario... es UNO por celda, y... si NO pones ninguno... no devuelve nada !!!
'3) pone en el rango 'A3:G3' los titulos de 'algunos' atributos de los archivos en 'esa' carpeta
'4) a partir de la fila 4, vacia los nombres [y sus atributos] que se encuentran en la carpeta 'solicitada' ;)

Sub ListarArchivosEnCarpeta()
Application.ScreenUpdating = False
Dim Carpeta As String, Fila As Long, Archivo, RutaCorta As String, Criterios As String, Tmp As Range
Carpeta = Range("a1"): Range("a1,e1").ClearContents
Fila = 4
Criterios = "a2:b2" ' si necesitas mas 'criterios'... amplia las columnas de este rango :)) '
Set Tmp = Cells.Find(Empty)
Range("a3:g3") = Array( _
"Nombre", "Tamaño", "Tipo", "Creado", "Acceso", "Modificado", "Nombre corto")
With CreateObject("Scripting.FileSystemObject")
With .GetFolder(Carpeta): RutaCorta = .ShortPath
For Each Archivo In .Files
With Archivo: Tmp = .Name
If Application.SumProduct(Application.CountIf(Tmp, Range(Criterios))) Then
Range("a" & Fila & ":g" & Fila) = Array( _
.Name, .Size, .Type, .DateCreated, .DateLastAccessed, .DateLastModified, .ShortName)
Fila = Fila + 1
End If
End With
Next
End With
End With
Tmp.ClearContents: Set Tmp = Nothing
Range("a1:g1").EntireColumn.AutoFit: Range("a1") = Carpeta: Range("e1") = RutaCorta
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

listar archivos

Publicado por fede (1 intervención) el 31/12/2008 22:53:16
hola, estuve probando algunas macro para listar archivos de audio en excel pero no pasa nada. me podrian dar una mano con esto? desde ya agradecido
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar