Search for Filename with Date and Open File

[Gingeiko]

Example: Today's date is 28 November 2011

I have a folder "C:\2011\" which contains xlsx files. For this example, lets say there are 5 files:
Record_28 Jan.xlsx
Record_04 Feb.xlsx
Record_15 Apr.xlsx
Record_22 Jun.xlsx
Record_13 Aug.xlsx

I need a macro that scans in folder "C:\2011\" and opens the file with the closest date.

I have written the following, but it couldn't work. Can someone please help me check what went wrong with this code?

Please Login or Register  to view this content.

Additional Details:
I am getting an error message
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Run-time error '91':
Object variable or With block variable not set
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
The code stops at the line after 'While VCont'

[Gingeiko]

Ok I tried another alternative:

Please Login or Register  to view this content.

For this I'm getting an error Overflow
and the line i = i + 1 is highlighted. Any ideas???

[Gingeiko]

Ok...I was being really careless....I missed the ".xlsx" in searching for file.

The code is now working:

Please Login or Register  to view this content.

[shaukat]

great i was doing this code,but stuck too. thanks for sharing

[rizviy]

hi can you please explain how do i this

[Gingeiko]

hi can you please explain how do i this

Example:
If you have 3 files in your folder, lets say "C:\My Folder\". And the files are:
"My File_03 Apr.xlsx"
"My File_25 Nov.xlsx"
"My File_13 OCt.xlsx"

Then this code should find the file with latest date, which is "My File_25 Nov.xlsx", and open it.

For that to work, replace the following variable with information from this example, in the code below:
Your_Fold_To_Look_For_File = My Folder
Your_File_Fixed_Name = My File_

Please Login or Register  to view this content.