need Macro to combine multiple workbooks into one

  • Thread starter Thread starter Dan
  • Start date Start date
D

Dan

Hello -

I am wanting to have a macro take approx. 200 Excel workbooks and
append them all into one workbook.

Facts:
* I have 200 workbooks each with it's own unique name. 1.xls,
2.xls, 3.xls, ... 200.xls.
* Each workbook contains only 1 worksheet
* Each workbook contains the same 4 column headings
* Workbooks all have different amount or rows
* Looking to combine everything regardless of duplicates into one
large workbook with the same 4 column headings.

Can anyone provide some newbie VBA code/Macro which could faster then
the old "cut and paste" method.

Thanks!
 
Thanks. I gave this a try but it appended all of the columns next to
each other (ie "across") and I wanted it to add the information to the
next available row (ie "down").
 
Looks like it almost got it. I am getting an error in...

sourceRange.Copy destrange

....a message box pops up and says it can't copy/paste because the cells
aren't the same size.

Sorry, I'm quite a novice here on the VBA side. Thanks!
 
Back
Top