This example code opens the DailyReport based on Today's date. Change the root directory ("C:\Reports\") to suit.
Sub Foo()
Dim strFile As String
Dim wbDR As Workbook
strFile = "C:\Reports\" & Year(Date) & "\" & Format(Date, "mmmm") & "\DailyReport_" & Format(Date, "m.d.yy") & ".xlsm"
If Len(Dir$(strFile)) = 0 Then
MsgBox strFile, vbExclamation, "File Not Found"
Exit Sub
End If
Set wbDR = Workbooks.Open(strFile) 'Open today's DailyReport
'Do something here with the opened DailyReport workbook
wbDR.Close SaveChanges:=True
End Sub
The description of what you want done with the DailyReport is too vague to follow.
Bookmarks