Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Statement to place .xls within .xls
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 -- bawaho ----------------------------------------------------------------------- bawahoo's Profile: http://www.excelforum.com/member.php...fo&userid=1510 View this thread: http://www.excelforum.com/showthread.php?threadid=27285 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If Statement to place .xls within .xls
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" -- Regards, Tom Ogilvy "bawahoo" wrote in message ... Can someone help me with the IF statement to place .xls within a .xls. I have created a Monarch Macro that captures all the data for the day and saved it as Day1.xls, now I need to place all the DayX.xls files into a Month.xls. Please help. Thanks in advance. -- bawahoo ------------------------------------------------------------------------ bawahoo's Profile: http://www.excelforum.com/member.php...o&userid=15102 View this thread: http://www.excelforum.com/showthread...hreadid=272851 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF statement inside a SUMIF statement.... or alternative method | Excel Worksheet Functions | |||
Reconcile Bank statement & Credit card statement & accounting data | Excel Worksheet Functions | |||
Fun Place | Excel Worksheet Functions | |||
Place an IF Statement into a Macro 2007 and 2003 | Excel Discussion (Misc queries) | |||
Using "double equal signs" in place of an IF statement | Excel Worksheet Functions |