Import Sheet from Most Recent File in a Folder

[David04Ruiz]

Hi all, I wanted to see if there was a way to import a sheet into my workbook from the most recent file in a specified folder? I know how to import a closed workbook based off of the file name but I wanted to import it based off the file creation date if possible. I want to import the first sheet of the closed most recent workbook. Super new to VBA so if anyone has a recommendation of how to do this id very much appreciate it!

 

[David04Ruiz]

The Dir is the second part of a pair of statements and you are doing all that in the function.
The function has already returned the File you want so your main routine does not need any of the looping.

Remove the struck out lines.

Do While fileName <> ""
    Workbooks.Open (directory & fileName)

        Workbooks(fileName).Worksheets("Template").Copy _
            after:=Workbooks("Book1.xlsm").Worksheets("Sheet1")

    Workbooks(fileName).Close
    fileName = Dir()
Loop

This worked! My hopefully last questions is: can I add this code to the end of another macro I have so that I can just run it and it do all necessary functions at once? Or do I have to keep this as its own macro and just run it by itself after running the first one (Macro 1)? For reference, I included the code of the first macro below. Regardless, thank you both so much for your help, I really do appreciate it!

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1").Select
    Range("AN1").Select
    ActiveCell.FormulaR1C1 = "Key Accounts"
    Cells.Select
    Range("AA1").Activate
    Selection.AutoFilter
    Columns("F:F").Select
    Selection.Style = "Currency"
    Columns("A:A").ColumnWidth = 60
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Age"
    Range("A1").Select
    ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add2 _
        Key:=Range("A1:A5000"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select

End Sub

 

[Joe4]

It is quite simple to call one macro from another.
See here: How to Call or Run a Another Macro From a Macro - Excel Campus

 

[David04Ruiz]

It is quite simple to call one macro from another.
See here: How to Call or Run a Another Macro From a Macro - Excel Campus

Thanks- I really appreciate all your help with this!