formula / macro required

ryanporter · Mar 29th, 2002, 05:21 AM

How can i show the last time i modified a *.xls file in a cell in the worksheet

Ivan F Moala · Mar 29th, 2002, 07:13 AM

Try this UDF...place code in a Std Module;

Function File_LastModified(FullFilePath)
Dim FSO, F
'Usage:= Placed in a cell [=File_LastModified(C:ExcelFilesUseful###.xls)]
'Usage:= Placed in a cell [=File_LastModified(A1)]

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFile(FullFilePath)

File_LastModified = "Last Modified: " & F.DateLastModified

End Function

HTH

Ivan

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 29th, 2002, 05:21 AM	#1
ryanporter New Member Join Date: Mar 2002 Posts: 2	How can i show the last time i modified a *.xls file in a cell in the worksheet

Mar 29th, 2002, 07:13 AM	#2
Ivan F Moala MrExcel MVP Join Date: Feb 2002 Location: Auckland, New Zealand Posts: 4,209	Try this UDF...place code in a Std Module; Function File_LastModified(FullFilePath) Dim FSO, F 'Usage:= Placed in a cell [=File_LastModified(C:ExcelFilesUseful###.xls)] 'Usage:= Placed in a cell [=File_LastModified(A1)] Set FSO = CreateObject("Scripting.FileSystemObject") Set F = FSO.GetFile(FullFilePath) File_LastModified = "Last Modified: " & F.DateLastModified End Function HTH Ivan