Excel Copying whole Sheets from mulitple workbooks, to a target workbook

[Allen]

I'm trying to copy multiple worksheets (in their entirety, formatting and
all), from multiple workbooks, to a single
target workbook. This can be done from within the Excel user interface, but
I can't seem to find a way to do this programatically via the COM interface.
Any clues????

All responses are greatly appreciated.

 

[Kalle]

sub Mover()
Sheets("Origin").Copy Before:=Workbooks("destination").Sheets(1)
end sub

 

[Ron de Bruin]

Try this one Allen
http://www.rondebruin.nl/copy3.htm

 

[Tom Ogilvy]

Shouldn't be any different. Objects/methods/properties are the same
particularly if you are using VB.

 

[Allen]

Hello Ron,

I see your code is VBA... I'm using VB6. THe follwoing code did the trick:

Call XLApp1.Workbooks(1).Sheets(1).Copy(XLApp1.Workbooks(2).Sheets(1))

I originally was trying to do this between to Excel apps.... which failed.
THanks for the insight!!!

Allen Segall

 

[Ron de Bruin]

I'm using VB6

Oops

Glad you got it working