Inserting the date a spreadsheet was saved into another document

Sammie0Sue · #1 05-14-2014, 01:25 AM

Hi All

Please could someone help me. I have a client that will be updated an excel spreadsheet - the spreadsheet then auto populates Rich text content controls in a word document.

They want to add a validity date into the word form that will show them when last the excel spreadsheet was saved.

Is there a way to do this I know I can insert a date in word for when the form was last saved but I cant figure out how to insert the date the spreadsheet was last saved.

macropod · #2 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")

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Please Help! Need auto populated last saved date.	Neveradayoff	Excel	0	02-05-2014 09:42 AM
Run-time error '1004': Document not saved. The document may be open...	doctor_who12	Excel Programming	1	01-22-2014 04:47 PM
Disappearing Saved MS Excel Spreadsheet Names	ReallyFreeSpirit	Excel	3	05-03-2013 02:50 PM
Inserting spreadsheet data rows as form fields in a document	b3nz	Word	3	03-31-2013 07:47 PM
Inserting excel spreadsheet into word doc	educpara58	Excel	2	07-28-2011 01:22 AM