Fecha de creación, modificación, último acceso de un fichero, y peso en Kbytes

Hace poco, un usuario dejaba un comentario en el blog, preguntando si era posible obtener la fecha de creación de un fichero excel, para implementarla dentro del propio fichero. Algo así como la función =HOY(), pero sin que variase a la hora de abrir el fichero, pues al abrir el libro en cuestión, automáticamente se actualizaría la fecha, poniendo la fecha del día en curso.

Como esta utilidad puede servirle a más de uno, y como me he acordado del preciado objeto FileSystemObject (ahora veréis que es, si es que no lo habéis visto ya en algún que otro artículo de este blog), vamos a dar respuesta a las inquietudes de ese lector.

El objeto FileSystemObject (en adelante lo llamaremos FSO), nos permite operar con ficheros. No es algo que debamos añadir (ningún complemento, ningún ActiveX, ...nada de esas cosas). El objeto FSO lo tenemos todos :-)

El objeto FSO nos permite leer, escribir, borrar, copiar, etc., determinados ficheros y carpetas (directorios). Tiene sus ventajas, pero también sus riesgos, si este objeto es utilizado por gente irresponsable. ¿Qué riesgos?. Vamos a dejarlo ahí, ...si no te has dado cuenta de lo que quiero decir, es que no has leído bien este párrafo :-)

Vamos al grano. ¿Podemos saber la fecha de creación de un fichero excel?. Por supuestísimo. Pero no solo eso, además, podemos saber la fecha de la última modificación de un fichero excel, y la fecha del último acceso a un fichero excel (si ejecutamos esto en el fichero abierto, aparentemente, la fecha de último acceso será la de hoy y ahora, pero Excel devuelve la fecha inmediatamente anterior a la de hoy, es decir, el último acceso sin contar el de hoy, a no ser que grabes los cambios, cierres y abras una segunda vez el fichero en el mismo día), aunque no lo hayamos modificado (si lo hemos abierto para chafardear su contenido). ¿Qué te parece?. ¿Mola saber todo eso, eh?. Pues hala, como postre, también averiguaremos cuanto pesa el fichero en Kbytes.

Copiaremos este macro dentro de ThisWorkbook (no dentro de un Módulo, sino dentro de ThisWorkbook), tal y como se muestra en la siguiente imagen:


El macro en cuestión es este (debe mantenerse ese nombre, pues se ejecuta en el momento de abrirse el fichero, a través del evento open):

Private Sub Workbook_Open() 'Si hay errores, que continúe On Error Resume Next 'pasamos la ruta y el nombre del 'fichero activo, a una variable fichero_y_ruta = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'Creamos el objeto FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'seleccionamos el libro activo Set archivo = fso.GetFile(fichero_y_ruta) 'vamos a ver los datos que necesitamos fecha_creacion = archivo.DateCreated fecha_modificacion = archivo.DateLastModified fecha_ultimo_acceso = archivo.DateLastAccessed 'pasaremos su tamaño de bytes a Kbytes, 'para lo cual, lo dividimos entre 1024 tamano_fichero = archivo.Size / 1024 'Si no hemos guardado previamente el fichero, 'nos dará error nº 424, por lo que tendremos 'esto en cuenta If Err.Number <> 424 Then Range("A1") = "Fecha de creación del fichero: " & fecha_creacion Range("A2") = "Fecha de la última modificación del fichero: " & fecha_modificacion Range("A3") = "Fecha del último acceso al fichero: " & FormatDateTime(fecha_ultimo_acceso, vbShortDate) Range("A4") = "Tamaño del fichero: " & tamano_fichero & " Kb" Else Range("A1") = "Fecha de creación del fichero: n.d." Range("A2") = "Fecha de la última modificación del fichero: n.d." Range("A3") = "Fecha del último acceso al fichero: n.d." Range("A4") = "Tamaño del fichero: n.d." End If 'limpiamos los objetos Set fso = Nothing Set archivo = Nothing End Sub

¿Que es lo que vamos a conseguir con este macro?. Pues vamos a escribir en las celdas que van desde A1 a A4, los siguientes datos:

• La fecha de creación del fichero: Este dato nos saldrá por defecto con formato dd/mm/aaaa hh:mm:ss, es decir, nos saldrá la fecha, y al lado la hora, en la que se creó el fichero (se crea cuando se guarda por primera vez). Si en tu formato regional tienes indicado mm/dd/aaaa, entonces te lo mostrará así, invirtiendo día y mes.


• La fecha de la última modificación del fichero: Este dato nos saldrá por defecto con formato dd/mm/aaaa hh:mm:ss, es decir, nos saldrá la fecha, y al lado la hora, en la que por última vez se modificó el fichero. Si en tu formato regional tienes indicado mm/dd/aaaa, entonces te lo mostrará así, invirtiendo día y mes.


• La fecha del último acceso: Este dato nos saldrá por defecto con formato dd/mm/aaaa, es decir, nos saldrá la fecha, pero sin la hora al lado. Si en tu formato regional tienes indicado mm/dd/aaaa, entonces te lo mostrará así, invirtiendo día y mes.


• Tamaño del fichero: Este dato nos saldrá en Kbytes.

Si deseamos que tanto la fecha de creación, como la fecha de modificación nos salgan con el formato dd/mm/aaaa, pero sin la hora, entonces nos bastará cambiar estas líneas del macro:

Range("A1") = "Fecha de creación del fichero: " & fecha_creacion Range("A2") = "Fecha de la última modificación del fichero: " & fecha_modificacion

Por estas otras:

Range("A1") = "Fecha de creación del fichero: " & FormatDateTime(fecha_creacion, vbShortDate) Range("A2") = "Fecha de la última modificación del fichero: " & FormatDateTime(fecha_modificacion, vbShortDate)

O si lo deseamos, por estas otras, que hacen exactamente lo mismo:

Range("A1") = "Fecha de creación del fichero: " & FormatDateTime(fecha_creacion, 2) Range("A2") = "Fecha de la última modificación del fichero: " & FormatDateTime(fecha_modificacion, 2)

Si en lugar de un macro, queréis crearos vuestras propias funciones personalizadas, entonces bastará con copiar estas cuatro funciones en un módulo VBA (no en ThisWokbook, sino en un módulo). He variado ligeramente el mensaje que muestra, para que veáis la diferencia con el macro.

La función para determinar la fecha de creación del fichero será esta:

Function fechadecreacion() 'Si hay errores, que continúe On Error Resume Next 'pasamos la ruta y el nombre del 'fichero activo, a una variable fichero_y_ruta = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'Creamos el objeto FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'seleccionamos el libro activo Set archivo = fso.GetFile(fichero_y_ruta) 'vamos a ver los datos que necesitamos fecha_creacion = archivo.DateCreated 'Si no hemos guardado previamente el fichero, 'nos dará error nº 424, por lo que tendremos 'esto en cuenta If Err.Number <> 424 Then fecha = "Creado el " & FormatDateTime(fecha_creacion, vbShortDate) Else fecha = "Fichero sin guardar" End If 'limpiamos los objetos Set fso = Nothing Set archivo = Nothing 'ponemos el dato en la celda activa fechadecreacion = fecha End Function

La función para determinar la última fecha de modificación del fichero, será esta:

Function fechadelaultimamodificacion() 'Si hay errores, que continúe On Error Resume Next 'pasamos la ruta y el nombre del 'fichero activo, a una variable fichero_y_ruta = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'Creamos el objeto FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'seleccionamos el libro activo Set archivo = fso.GetFile(fichero_y_ruta) 'vamos a ver los datos que necesitamos fecha_modificacion = archivo.DateLastModified 'Si no hemos guardado previamente el fichero, 'nos dará error nº 424, por lo que tendremos 'esto en cuenta If Err.Number <> 424 Then fecha = "Modificado el " & FormatDateTime(fecha_modificacion, vbShortDate) Else fecha = "Fichero sin guardar" End If 'limpiamos los objetos Set fso = Nothing Set archivo = Nothing 'ponemos el dato en la celda activa fechadelaultimamodificacion = fecha End Function

La función para determinar la fecha del último acceso al fichero, será esta:

Function fechadelultimoacceso() 'Si hay errores, que continúe On Error Resume Next 'pasamos la ruta y el nombre del 'fichero activo, a una variable fichero_y_ruta = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'Creamos el objeto FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'seleccionamos el libro activo Set archivo = fso.GetFile(fichero_y_ruta) 'vamos a ver los datos que necesitamos fecha_ultimo_acceso = archivo.DateLastAccessed 'Si no hemos guardado previamente el fichero, 'nos dará error nº 424, por lo que tendremos 'esto en cuenta If Err.Number <> 424 Then fecha = "Último acceso el " & FormatDateTime(fecha_ultimo_acceso, vbShortDate) Else fecha = "Fichero sin guardar" End If 'limpiamos los objetos Set fso = Nothing Set archivo = Nothing 'ponemos el dato en la celda activa fechadelultimoacceso = fecha End Function

La función para determinar el tamaño en Kbytes del fichero, será esta:

Function pesodelfichero() 'Si hay errores, que continúe On Error Resume Next 'pasamos la ruta y el nombre del 'fichero activo, a una variable fichero_y_ruta = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'Creamos el objeto FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'seleccionamos el libro activo Set archivo = fso.GetFile(fichero_y_ruta) 'vamos a ver los datos que necesitamos tamano_fichero = archivo.Size / 1024 'Si no hemos guardado previamente el fichero, 'nos dará error nº 424, por lo que tendremos 'esto en cuenta If Err.Number <> 424 Then peso = "Tamaño del fichero: " & tamano_fichero & " Kb" Else peso = "Fichero sin guardar" End If 'limpiamos los objetos Set fso = Nothing Set archivo = Nothing 'ponemos el dato en la celda activa pesodelfichero = peso End Function

Y llamaremos a las funciones desde cualquier celda, así:

=fechadecreacion()

=fechadelaultimamodificacion()

=fechadelultimoacceso()

=pesodelfichero()

Si deseáis que estas funciones personalizadas estén disponibles para cualquier libro de Excel, sin necesidad de incorporarlas expresamente al libro en cuestión, entonces tendréis que echarle un vistazo al artículo donde hablo del libro de macros personal.

Aquí os dejo un pantallazo, con el resultado de aplicar el macro en el evento open, y las cuatro funciones personalizadas que hemos visto a lo largo de este artículo: