If there is only ONE of these dated files each day, then this would find and open that one file:
Does this get you started?![]()
Option Explicit Sub OpenDatedCSV2() Dim wbName As String, fPath As String fPath = "C:\2009\" 'remember the last \ in this string wbName = Dir("DailyReportSales." & Format(Date, "YYYYMMDD") & "*.csv") If wbName <> "" Then Workbooks.Open fPath & wbName End Sub
Bookmarks