Importing most recent file

[wrcaz]

I need to import data (txt file) that changes often. Each time it changes
the name changes based on the time stamp. How can I import the most recent
filewith macro or VBA?

[bgeier]

You will have to set up a filesystemobject to get the createdate from the files in the specified directory.

[Tom Ogilvy]

You can try something like this:

Dim dt as Date, dtMax as Date
Dim sPath as String, sName as String
Dim sMax as String, bk as Workbook
sPath = "C:\MyFiles\" '<= change to your directory
sName = dir(sPath & "*.txt")
dtMax = 0
sMax = ""
do while sName <> ""
dt = fileDateTime(sPath & sName)
if dt > dtMax then
sMax = sName
dtMax = dt
end if
Loop
set bk = Workbooks.Open(sPath & sMax)

--
Regards,
Tom Ogilvy


"wrcaz" <[email protected]> wrote in message
news:[email protected]...
> I need to import data (txt file) that changes often. Each time it changes
> the name changes based on the time stamp. How can I import the most
recent
> filewith macro or VBA?