Merging Two (or more) Workbooks

[Guest]

Excel 2002-2003. How do I programmatically merge two or more workbooks. How
do I manually merge two or more workbooks. Thanks for any help.

 

[Tom Ogilvy]

copy and paste. Select all the sheets in one workbook and do Move or copy
Sheet in the Edit menu. Select a destination in the dropdown and if you
want to copy , click the copy checkmark

With Workbooks("NewBook.xls")
activeworkbook.Sheets.Copy After:=.Sheets(Sheets.count)
End With

 

[Guest]

Sorry Tom. May I ask for more detail?

If I have book1 and book2 and I want to merge them into book3, what would
the code look like? Thanks.

copy and paste. Select all the sheets in one workbook and do Move or copy
Sheet in the Edit menu. Select a destination in the dropdown and if you
want to copy , click the copy checkmark

With Workbooks("NewBook.xls")
activeworkbook.Sheets.Copy After:=.Sheets(Sheets.count)
End With

 

[Lonnie M.]

Doug, give this a try. You may want to create a loop for each sheet in
the workbook.

For Each WS In ActiveWorkbook.Worksheets
WS.Select
ActiveWindow.SelectedSheets.Copy
After:=Workbooks("Book3.xls").Sheets(Sheets.Count)
End If
Next

HTH--Lonnie

 

[Lonnie M.]

Oops, forgot to take out the end if. I might as well tweak it too.

For Each WS In Workooks("Book1.xls")
WS.Select
ActiveWindow.SelectedSheets.Copy _
After:=Workbooks("Book3.xls").Sheets(Sheets.Count)
Next

Sorry about that--Lonnie M.

 

[Tom Ogilvy]

With Workbooks("Book3.xls")
workbooks("Book1.xls").sheets.copy After:=.Sheets(.Sheets.count)
workbooks("Book2.xls").sheets.copy After:=.Sheets(.Sheets.count)
End with

--
Regards,
Tom Ogilvy

Sorry Tom. May I ask for more detail?

If I have book1 and book2 and I want to merge them into book3, what would
the code look like? Thanks.