Get Time & Date Of Last Update Of Source File

lostyankee · Jun 24th 2009

I've written a UDF to add a time stamp to a workbook to note when the data source has been updated. The issue I'm running into is that in order for the UDF to update the cell, you have to click on the function and hit enter. Here is the code

Code

Function FiledateLastMod(Filename As String) As String
Application.Volatile


Dim FileDate As Double


On Error Resume Next
FileDate = FileDateTime(Filename)
If Err.Number = 0 Then
FiledateLastMod = Format(FileDate, "Mmmm dd, yy  h:mm am/pm")
Else
FiledateLastMod = "Error"
End If
End Function

Display More

dodger7 · Jun 24th 2009

Re: User Defined Function Not Updating Cell Content

try placing the following code in the "thisworkbook" module:

Code

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim F As Variant
If SaveAsUI = True Then
Cancel = True
F = Application.GetSaveAsFilename(Me.Name, _
"Workbook (*.xls), *.xls")
If F = False Then Exit Sub
Me.SaveAs CStr(F)
Application.Calculate
End If
Me.Save
Application.Calculate
End Sub

Display More

HTH
Jamie

Dave Hawley · Jun 25th 2009

Re: User Defined Function Not Updating Cell Content

Look into BuiltinDocumentProperties

Get Time & Date Of Last Update Of Source File

Participate now!

Share