Opening most recent files

[tobermory]

This is probably impossible, but I'll ask it anyway. Is there a way to open, say, the 10 most recently modified spreadsheets in a particular folder? At my place of work, a new spreadsheet appears every 15 minutes in a specific folder with figures etc related to my job. In a super ideal world, I could copy and paste these figures from the 10 most recent files into a master spreadsheet, so I can monitor relevant fluctuations/changes etc. A long shot, but any help would be gratefully appreciated!

 

[Trevor G]

Here is an idea, run some Scripting code to list all the files into a spreadsheet which lists workbook name path and date modified then you could run another code to sort the list into date time order then use the top 10 entries to run the process you need it to.

Code for the first part is shown below:

Sub ListMyFilesinFolder()
'You need to set the Reference to use Microsoft Scripting Runtime
'Select the Tools menu and References
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim FileName As Scripting.File
'Change the file path to your folder location
SourceFolderName = "C:\Excel"
Set FSO = New Scripting.FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
Range("A1:B1") = Array("text file", "Date Last Modified")
i = 2
For Each FileName In SourceFolder.Files
Cells(i, 1) = FileName.Name
Cells(i, 2) = FileName.DateLastModified
i = i + 1
Next FileName
Set FSO = Nothing
End Sub