Merging Two (or more) Workbooks

[Chaplain Doug]

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.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org

[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

--
Regards,
Tom Ogilvy

"Chaplain Doug" <[email protected]> wrote in message
news:[email protected]...
> 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.
> --
> Dr. Doug Pruiett
> Good News Jail & Prison Ministry
> www.goodnewsjail.org

[Chaplain Doug]

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.

"Tom Ogilvy" wrote:

> 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
>
> --
> Regards,
> Tom Ogilvy
>
> "Chaplain Doug" <[email protected]> wrote in message
> news:[email protected]...
> > 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.
> > --
> > Dr. Doug Pruiett
> > Good News Jail & Prison Ministry
> > www.goodnewsjail.org
>
>
>

[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

"Chaplain Doug" <[email protected]> wrote in message
news:[email protected]...
> 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.
>
> "Tom Ogilvy" wrote:
>
> > 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
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "Chaplain Doug" <[email protected]> wrote in
message
> > news:[email protected]...
> > > 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.
> > > --
> > > Dr. Doug Pruiett
> > > Good News Jail & Prison Ministry
> > > www.goodnewsjail.org
> >
> >
> >