How do I show file creation date in a cell in Excel?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Eddie Armstrong - 14 Dec 2005 15:32 GMT

I need to have a field on a worksheet to show the file creation date. It
can't be in the header or footer as I need to make calculations based on it.
Any clues?

Regards,
Eddie

Reply to this Message

Bob Phillips - 14 Dec 2005 16:35 GMT

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function

and enter in a cell such as
=DocProps ("last save time")

Signature

HTH

Bob Phillips

(remove nothere from email address if mailing direct)

> I need to have a field on a worksheet to show the file creation date. It
> can't be in the header or footer as I need to make calculations based on it.
> Any clues?
>
> Regards,
> Eddie

Reply to this Message

Gord Dibben - 14 Dec 2005 19:02 GMT

Should be........

=DocProps("creation date")

or use this UDF, although I prefer Bob's because it is not specific to one
property.

Function CreaDate() As Date
CreaDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Gord Dibben Excel MVP

>'-----------------------------------------------------------------
>Function DocProps(prop As String)
[quoted text clipped - 10 lines]
>and enter in a cell such as
>=DocProps ("last save time")

Reply to this Message

Bob Phillips - 14 Dec 2005 19:26 GMT

Thanks Gord, force of habit as most ask for last saved.

Signature

HTH

Bob Phillips

(remove nothere from email address if mailing direct)

> Should be........
>
[quoted text clipped - 23 lines]
> >and enter in a cell such as
> >=DocProps ("last save time")

Reply to this Message

Gord Dibben - 14 Dec 2005 21:21 GMT

Creation Date gets very little call.

Gord

>Thanks Gord, force of habit as most ask for last saved.

Reply to this Message

Louise - 14 Dec 2005 17:38 GMT

Hi Eddie

Does this help......

Insert a static date or time
Current date Select a cell and press CTRL+;

Current time Select a cell and press CTRL+SHIFT+;

Current date and time Select a cell and press CTRL+; then SPACE then
CTRL+SHIFT+;

Louise

> I need to have a field on a worksheet to show the file creation date. It
> can't be in the header or footer as I need to make calculations based on it.
> Any clues?
>
> Regards,
> Eddie

Reply to this Message

CLR - 14 Dec 2005 17:51 GMT

This line of code in an appropriate macro will do it............

Range("b1") = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

Vaya con Dios,
Chuck, CABGx3

> I need to have a field on a worksheet to show the file creation date. It
> can't be in the header or footer as I need to make calculations based on it.
> Any clues?
>
> Regards,
> Eddie

Reply to this Message

Duke Carey - 14 Dec 2005 18:22 GMT

The creation date is part of the workbook's builtin document properties and
can be accessed via VBA

thisworkbook.BuiltinDocumentProperties("Creation Date")

> I need to have a field on a worksheet to show the file creation date. It
> can't be in the header or footer as I need to make calculations based on it.
> Any clues?
>
> Regards,
> Eddie

Reply to this Message