unable to activate and close the appended filename with the date

[pals70423]

Hi All,
i am writing a macro to activate a opened file and close the file.the files are generated on daily basis with date appended to it.i combining the string along with the date to activate and close the excel but i am unable to achive this.kindly help

code:

dim daily_timestamp as string
dim daily_filename as string
daily_timestamp = InputBox("Enter the date in YYYY-MM-DD format")
daily_filename = test
Windows("C:\pals\macros\test\"test_" & daily_timestamp & ".xls").Activate
Application.CutCopyMode = False
ActiveWindow.Close

 

[JackDanIce]

Think you have a syntax error; you only have 5 speach marks and I think you need either 4 or 6

Windows("C:\pals\macros\test\"test_" & daily_timestamp & ".xls").Activate

Maybe it should be:

Windows("C:\pals\macros\test\test_" & daily_timestamp & ".xls").Activate

Or

Windows("C:\pals\macros\" & daily_filename & "\test_" & daily_timestamp & ".xls").Activate

 

[pals70423]

Hi,
I have changed the code but still getting the same error

Windows("C:\pals\macros\test\test_" & daily_timestamp & ".xls").Activate

run time error 9

sub script out of range

 

[VoG]

Try

Workbooks("test_" & daily_timestamp & ".xls").Activate

 

[JackDanIce]

I don't think you need the path part of the string.
Try:

Windows(test_" & daily_timestamp & ".xls").Activate

 

[pals70423]

Thanks Vog.It worked perfectly