Is it possible to load an .xls file

  • Thread starter Thread starter Jako
  • Start date Start date
J

Jako

I am using this code:

Dim s1 As String, s2 As String, sName As String
s1 = "C:\EPLC\Audits"
s2 = "C:\EPLC\Audits\Completed\"
sName = Format(Date, "ddmmyy") & " NW AB.xls"
FileCopy s1 & sName, s2 & sName
Workbooks.Open s1 & sName
Kill s1 & sName

but what i want to do is if the day is Monday i want to load an .xls
file with filename :
"date of the friday previous + NW AB.xls"

so this week for instance.
as today is Wednesday i want to load the .xls file with the filename :

"30.07.2004 NW AB.xls"

Can anyone please suggest the code to fulfill this need.

Many thanks
 
If not Monday, it loads the today date file?

Dim s1 As String, s2 As String, sName As String
s1 = "C:\EPLC\Audits"
s2 = "C:\EPLC\Audits\Completed\"
If Weekday(Date) = 2 Then
sName = Format(Date-3, "ddmmyy") & " NW AB.xls"
Else
sName = Format(Date, "ddmmyy") & " NW AB.xls"
End If
FileCopy s1 & sName, s2 & sName
Workbooks.Open s1 & sName
Kill s1 & sName
 
Back
Top