Possible to get date last saved & paste to Excel?

[kellonwheels]

I'd like to use an Excel macro to gather the most recent saved date from the properties of an Access database. Anyone know if this is possible?

Here's the original question:

http://www.mrexcel.com/board/viewtopic.php?topic=33255&forum=2&1

Here's what I'm trying to do: I have a pivot table in Excel that gets its data from a database in Access. I can refresh the pivot table all I want, but the underlying data is only as current as the Access DB. I want to be able to show in Excel how new that data is (ie - when was the DB last modified?).

Ideas?

Thanks,

Kelly

 

[dk]

Hi,

Here's one method. Paste this function into one of your code modules: -

Function DateLastModified(FilePath As String)
Dim oFSObject As Object
On Error Resume Next
Set oFSObject = CreateObject("Scripting.FilesystemObject")
DateLastModified = oFSObject.GetFile(FilePath).DateLastModified

If Err.Number <> 0 Then
    DateLastModified = "Error: " & Err.Description
End If

End Function

This function can be used to get the date a file was last modified for any file type. You'd use it something like this: -

Sub test()
MsgBox DateLastModified("C:temptest.mdb")
End Sub

 

[kellonwheels]

Thanks! That works perfectly!