Monday, June 06, 2005

Excel Adding the last modified date into a Excel 2000 worksheet?

Excel Adding the last modified date into a Excel 2000 worksheet?: "Adding the last modified date into a Excel 2000 worksheet?
Posted by Stronky on 4/16/2004 11:05 AM
Use this code:

Sub DocumentProperties()
On Error Resume Next
rw = 1
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
End Sub

Sub DocumentPropertiesLastModified()
Dim a As String
'Worksheets(1).Activate
a = ActiveWorkbook.BuiltinDocumentProperties.Item(12)
Cells(3, 3).Select
ActiveCell.FormulaR1C1 = a
Cells(2, 3).Select
ActiveCell.FormulaR1C1 = 'datum last modified:'
End Sub"
Post a Comment