Microsoft Office Forums - View Single Post - [Solved] Inserting the date a spreadsheet was saved into another document

macropod · 05-15-2014, 01:14 AM

You could use a function like:

Code:

Function GettFileDate(StrNm As String)
'Requires Reference to Microsoft Scripting Runtime
    Dim fso As Scripting.FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    GettFileDate = fso.GetFile(StrNm).DateLastModified
End Function

which you could call with a line like:
MsgBox GettFileDate("C:\Users\" & Environ("UserName") & "\Documents\ExcelWorkbook.xls")