Leer propiedades de Libro de excel y escibirlas en una Celda.

[Alex_edm]

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.

[Antoni]

Revisa este enlace 

Propiedades de archivo

 

.

 

[Alex_edm]

Muchas gracias!