Import most recent

[arco21]

Hey everyone, I'm not skilled in vba, but I'm trying to create a macro that will automatically import data from a folder's most recently added file (.csv to be exact) into a spreadsheet. To give you a better idea of what I'm doing, I'm creating a flight log book for a pilot and he wants to be able to easily keep a running total of things like flight time and so on. He downloads a .csv file from his company every month so he has years worth of data that needs to be organized into a single ongoing spreadsheet, so I'm attempting to make it as easy for him as possible. Any help would be very appreciated. And please let me know if I can clarify anything, thanks!

[DGagnon]

This little macro should help you out, it will locate the oldest file in a folder and return the file name, in this case just to a msgbox, but im sure you could use that as you need.

please let me know if you need any help

Sub FindNewFile()
Dim OldestFileDate As Date
Dim OldestFileName, MyPath, CurrentFileName As String

MyPath = "C:\TestFolder\"
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
CurrentFileName = Dir(MyPath & "*.csv")

Do
    If FileDateTime(MyPath & CurrentFileName) > OldestFileDate Then
        OldestFileName = MyPath & CurrentFileName
        OldestFileDate = FileDateTime(MyPath & CurrentFileName)
    End If
    CurrentFileName = Dir()
Loop While CurrentFileName <> ""

MsgBox (OldestFileName)
End Sub