Leer propiedades de Libro de excel y escibirlas en una Celda.
publicado
Hola:
Esto intentando leer las propiedades de un libro Excel y escribirlas en una celda concreta. Las propiedades que me interesan son el Autor, Fecha de la Ultima Modificación y el Estado.
Escribo hasta donde he llegado, solo he conseguido leer la Fecha pero me aparece la hora también y eso no me interesa. También me gustaría saber como hacer que el código se ejecute automáticamente cada vez que se abra el libro sin necesidad de hacerlo manualmente.
Sub ConsultaLibro()
Dim Version As Integer
Dim Autor As String
Dim FechaUltimaModif As Date
Version = ActiveWorkbook.BuiltinDocumentProperties("Revision Number")
Autor = ActiveWorkbook.BuiltinDocumentProperties("Author")
FechaUltimaModif = ActiveWorkbook.BuiltinDocumentProperties("Last Save Date")
Range("J26").Value = FechaUltimaModif
Range("J27").Value = Version
Range("J28").Value = Autor
End Sub
Muchas gracias.
Un saludo.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola:
Esto intentando leer las propiedades de un libro Excel y escribirlas en una celda concreta. Las propiedades que me interesan son el Autor, Fecha de la Ultima Modificación y el Estado.
Escribo hasta donde he llegado, solo he conseguido leer la Fecha pero me aparece la hora también y eso no me interesa. También me gustaría saber como hacer que el código se ejecute automáticamente cada vez que se abra el libro sin necesidad de hacerlo manualmente.
Sub ConsultaLibro()
Dim Version As Integer
Dim Autor As String
Dim FechaUltimaModif As Date
Version = ActiveWorkbook.BuiltinDocumentProperties("Revision Number")
Autor = ActiveWorkbook.BuiltinDocumentProperties("Author")
FechaUltimaModif = ActiveWorkbook.BuiltinDocumentProperties("Last Save Date")
Range("J26").Value = FechaUltimaModif
Range("J27").Value = Version
Range("J28").Value = Autor
End Sub
Muchas gracias.
Un saludo.