How do I extract the last update date from a different excel file?

[Dennis]

I need to place the last update date of a data file that I use to extract
data to a different file. I need the formula to place this date in a cell at
the top of my working file. Thanks

 

[Gary''s Student]

Here is the general idea:

Sub NeedADate()
Dim FSO As Scripting.FileSystemObject
Dim FileItem As Scripting.File
Set FSO = New Scripting.FileSystemObject
filespec = "C:\test\tulip.jpg"
Set FileItem = FSO.GetFile(filespec)
MsgBox (FileItem.DateLastModified)
End Sub

You must include a reference to Microsoft Scripting Runtime

You would use your real data file in place of the .jpg
and
to store the date, something like:

Range("A1").Value=FileItem.DateLastModified

 

[Rick Rothstein]

You can use VB's FileTimeDate function to do that directly (without needing
any additional references)...

MsgBox FileDateTime("C:\test\tulip.jpg")