Agregar a una macro la fecha de creación
Tengo esta macro que me proporcionaron, y necesito que en la columna de al lado ponga la fecha de creación del archivo.
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 Sub
Gracias expertos
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada, la fecha de creación te la pone en la columna B
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
'
Set atributos = CreateObject("Scripting.FileSystemObject")
ChDir cp & "\"
archi = Dir("*.xls*")
i = 2
ActiveSheet.Columns("A:B").ClearContents
Do While archi <> ""
Cells(i, "A") = archi
Cells(i, "B") = atributos.GetFile(archi).DateCreated
i = i + 1
archi = Dir()
Loop
MsgBox "Terminado"
End SubSaludos.Dante Amor
