Date last saved/updated

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Hal - 22 May 2006 20:03 GMT

I want to get the date the file I'm working on was last saved and place that
value into a cell.

I don't see a built in function to do this, any help is appreciated.

Hal

Reply to this Message

Ron de Bruin - 22 May 2006 20:27 GMT

Hi Hal

Sub test()
Sheets("Sheet1").Range("A1").Value = _
Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
End Sub

Signature

Regards Ron de Bruin
http://www.rondebruin.nl

>I want to get the date the file I'm working on was last saved and place that
> value into a cell.
>
> I don't see a built in function to do this, any help is appreciated.
>
> Hal

Reply to this Message

William - 22 May 2006 20:28 GMT

Hi Hal

Range("A1").NumberFormat = "dd/mm/yy hh:mm"
Range("A1") = FileDateTime(ThisWorkbook.FullName)

Signature

Regards

William

XL2003

willwest22@yahoo.com

>I want to get the date the file I'm working on was last saved and place
>that
[quoted text clipped - 3 lines]
>
> Hal

Reply to this Message