If Statement to place .xls within .xls

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
 
T

Tom Ogilvy

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"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top