Open Latest created file

[Domtflowers]

i know of an open latest created file syntax but down't know what it is can anyone help also how do i specify the file path (where to look for the latest file)

 

[BrianB]

This is how I would do the job. Be interestd to see your "latest created" syntax.

Sub FIND_NEWEST_FILE()
    Dim MyFolder As String
    Dim MyFileName As String
    Dim MyDateTime As Date
    Dim NewestFile As String
    Dim NewestDateTime As Date
    MyFolder = CurDir & "\"
    '---------------------------
    MyFileName = Dir(MyPath & "*.XLS")
    Do While MyFileName <> ""
        MyDateTime = FileDateTime(MyFolder & MyFileName)
        If MyDateTime > NewestDateTime Then
            NewestDateTime = MyDateTime
            NewestFile = MyFileName
        End If
        MyFileName = Dir
    Loop
    'MsgBox (NewestFile & vbCr & NewestDateTime)
    Workbooks.Open FileName:=MyFolder & NewestFile
End Sub

 

[P Sitaram]

Brian, should this line:

MyFileName = Dir(MyPath & "*.XLS")

be:

MyFileName = Dir(MyFolder & "*.XLS")

Apologies in advance, if i am wrong

 

[BrianB]

Yes. Well spotted. sorry for that. I did test it before posting and it worked correctly despite that.

Although the code does work on my machine, I think the line
MyFolder = CurDir
(which refers to the folder which is currently active.)
should be used instead of MyFolder = CurDir & "\"

Hope you find it useful.