VBA For Two Digit Year

[Captain_Conman]

Hi There,

I am essentially trying to open a workbook saved as today's date. "7-2-18.xlsx" I have written the follow code and it works perfectly. However, it is trying to reference a file with the year as "2018" instead of just "18". Any suggestions on how to make the macro reference "18" instead of "2018"?

Sub Test()
Dim M As Integer
Dim D As Integer
Dim Y As Integer


M = Month(Date)
D = Day(Date)
Y = Year(Date)


Application.Workbooks.Open Filename:="S:\SherwinWilliams\Oracle Reports" & M & "-" & D & "-" & Y & ".xlsx"


End Sub

 

[RoryA]

You could just use this:

Application.Workbooks.Open Filename:="S:\SherwinWilliams\Oracle Reports" & Format$(Date, "m-d-yy") & ".xlsx"

 

[Captain_Conman]

RoryA,

This code worked great. My only question is why there is a "$" in the code? Is there significance with having it there? (Sorry, I am new to VBA and just curious!)

 

[RoryA]

There are two versions of many VBA functions. Format$ returns a String, whereas Format returns a Variant that contains a String. The former performs slightly better, so I tend to use it.