If Statement to place .xls within .xls

  • Thread starter Thread starter bawahoo
  • Start date Start date
B

bawahoo

Can someone help me with the IF statement to place .xls within a .xls.
have created a Monarch Macro that captures all the data for the day an
saved it as Day1.xls, now I need to place all the DayX.xls files into
Month.xls. Please help. Thanks in advance
 
Dim spath as String, sStr as String
Dim i as long
Dim bk as Workbook, bk1 as Workbook
spath = "C:\myfolder\myfiles\"
set bk = workbooks.Add
for i = 1 to 31
sStr = dir(spath & "day" & i & ".xls")
if sStr <> "" then
set bk1 = workbooks.open(sPath & sStr)
bk1.worksheets(1).copy After:=bk.Worksheets(1)
bk1.Close Savechanges:=False
end if
Next
Bk.SaveAs "C:\Myfolder\MyMonths\month.xls"
 
Back
Top