open the newest excel file in a folder based on modified date

[dulitul]

Hello,

I want to open the second newest excel file in a folder baed on creation date, copy sheet1 from it and paste it into the newest excel file in the same folder. Can you please help?

Thank you

 

[dulitul]

Any ideaS?

 

[patel45]

not tested

Sub LastUpdatedFile2()
        Set fs = CreateObject("Scripting.FileSystemObject")
        fpath = "C:\test"
        Set f = fs.Getfolder(fpath)
        Set NFile = f.Files
        For Each pf1 In f.Files
            If pf1.Name = "" Then Exit Sub
            date3 = pf1.DateLastModified
            If date3 > MaxData Then
                FpathName = pf1
                MaxData = date3
            End If
        Next
        For Each pf1 In f.Files
            If pf1.Name = "" Then Exit Sub
            date3 = pf1.DateLastModified
            If date3 > Max2 And date3 < MaxData Then
                Name2 = pf1
                Max2 = date3
            End If
        Next
        Set book2 = Workbooks.Open(Name2)
        Set book1 = Workbooks.Open(FpathName)
        book2.Sheets(1).copy  After:=book1.Sheets(book1.Sheets.count)
        book2.close
        book1.close true
End Sub

 

[dermie_72]

http://www.mrexcel.com/forum/excel-...-code-open-most-recent-file-saved-folder.html
See if that helps.
That's for the most recent file, so you will need to add the variable of second recent, and move them into that as the most recent is populated.
The above link will work though.