Open file by creation date with VBA

[MVD100]

I am using the following to get the path and name of a file to open:

StrFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv),*.csv", _
    Title:="Select File To Open")

Because I know the beginning name of the file, I need only to open a file with a given creation date value. For example, there are multiple log files: file1.csv, file2.csv, file3.csv... Using the code above I would see all files and without dates. I want the user to only enter the date. Say, I want to open the log file that was created on a day last week. The VBA code would open all the log files for the given date and import them into Excel.

Here is my pseudo code:

Open StrFileName In StrFolderPath.Files Where _
  StrFileName.DateCreated Is StrDate

 

[SkipVought]

Hi,

I would advise against OPENING a text file using the Open Method, in most cases. You can get unexpected results that you have no control over.

Rather, i would advise using the DATA IMPORT feature, where you have control over each column's data type.

You can use the the GetOpenFileName method to get the PATH and just concatenate the date as required, using the Format function to convert the Date to a string.

If you choose to opent the file using the DATA IMPORT feature, please indicate. Otherwise ...

Workbooks.Open StrFolderPath & "\" & StrFileName & Format(Date, "yyyy-mm-dd")

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[Gavona]

To select files by date created you could use the FileSystemObject. I used it recently - see: thread707-1628719


Gavin