Combining Multiple Excel Workbooks Into One

[ZEvans12]

Is there a way in VBA to select a folder with ~20 different Excel Workbooks. Have a loop perform the same task to each workbook in the folder and combine them into one excel workbook?

As of right now I have this code:

[code]

Sub MastercurveCreater()

Workbooks.Add

ActiveWorkbook.SaveAs "N:\******\ MasterCurve Start\" & "InitialSave" & ".xlsx"

SelectData.Show

'
' DataSelection Macro
'
Range("K1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=-30
Range("K1:K68,N1").Select
Range("N1").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("K1:K68,N1:P68").Select
Range("N1").Activate

Selection.Copy

Windows("InitialSave.xlsx").Activate

Range("A1").Select

ActiveSheet.Paste

SaveWorkbook.Show

'You can use this to delete all xlsx files in the folder Test
On Error Resume Next
Kill "N:\MATDEV\MasterCurve Start\" & "InitialSave" & ".xlsx"
On Error GoTo 0


End Sub

[code\]

It takes all the data from one spreadsheet to which I specify and copies and paste it into another blank worksheet.

I would like to do this for all the worksheets in the folder, but am unsure of how to go about doing it.

Any help would be appreciated.

Thanks a lot!

[JBeaucaire]

'WORKBOOKS TO 1 SHEET STACKED
Here's a macro for collecting data from all files in a specific folder.

Workbooks to 1 Sheet

The parts of the code that need to be edited are colored to draw your attention.

Based on your sample code above, I'd think the "customization" section would look something like:

Please Login or Register  to view this content.

[ZEvans12]

Worked perfectly.. I changed around a few things here and there to make it smoother, but this is exactly what I needed.

Thank you.

[JBeaucaire]

Awesome...

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.