Saltar al contenido

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

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.