Excel properties on worksheet

[rafikarp]

Hi,

Is there any way to get an excel workbook's updated properties information (that is, author, last date modified, file size etc) to appear on the first sheet in the workbook every time you open it up? Does anyone have a macro that can do this?

Thanks for your help.

 

[robhillier]

The following comes from VBA's Help for "Workbook.BuiltinDocumentProperties Property", with a few small modifications.

    Dim p As DocumentProperty
    Dim rw As Long
 
    On Error Resume Next
    rw = 1
    ActiveWorkbook.Worksheets(1).Activate
    For Each p In ActiveWorkbook.BuiltinDocumentProperties
        Cells(rw, 1).Value = p.Name
        Cells(rw, 2).Value = p.Value
        rw = rw + 1
    Next

 

[ISY]

Hello

Watch:

'Title: List file properties
'[B]Author:  Eplucheur , mpfe[/B]
'Remarks: Returns all properties of the folder.
Sub Proprieta()
    Dim I As Integer
    Dim txt As String
    On Error Resume Next
    With ThisWorkbook.BuiltinDocumentProperties
    For I = 1 To .Count
    Cells(I, 1) = .Item(I).Name
    Cells(I, 2) = .Item(I)
    Next I
    End With
    Cells(I + 2, 1) = FileLen(ThisWorkbook.FullName) & " octets"
    Columns("A:B").AutoFit
    [B11:B12].NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub

 

[rafikarp]

Thank you.