Sub get_first_created()
Dim myPath$, mask$, f$, i%, t As Date
Dim myFolder As Object, myFile As Object
myPath = "C:\Users\123\Desktop\123\" ' директория для поиска
mask = "*.xlsx" ' маска поиска с * и ?
With CreateObject("Scripting.FileSystemObject")
    Set myFolder = .GetFolder(myPath)
    t = DateAdd("h", 9, Date) ' если ищем самый поздний - убрать эту строку
    For Each myFile In myFolder.Files
        If myFile.Name Like mask Then
            If CDate(myFile.DateCreated) > t Then  ' если ищем самый ранний, то  <, самый поздний  - >
                t = CDate(myFile.DateCreated)
                f = myFile.Name
            End If
        End If
    Next
End With
Workbooks.Open myPath & f
With ActiveWorkbook
    'часть кода которая берет нужные данные для отчета или что-то делает
    .Close SaveChanges:=False 'закрываем открытую книгу
End With
End Sub

t = Now ' если ищем самый поздний - убрать эту строку

t = DateAdd("h", 9, Date)