Combining different workbooks in a single workbook

[moizs]

Hello I have many workbooks and i want to combine it into a single workbook and each workbook in the combined workbook should be in a separate sheet plsss help

 

[Debraj]

Hi Moizs,


with poor validation and check..

Test below one

[pre]

Sub CombDiffWorkbook()
pnos = ThisWorkbook.Sheets.Count
FileNames = Application.GetOpenFilename(Filefilter:="Excel File (*.xlsx), *.xlsx", MultiSelect:=True)
For Each file In FileNames
Workbooks.Open file
Set ACWB = ActiveWorkbook
ActiveWorkbook.Sheets.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ACWB.Close False
Next file
For i = 1 To Sheets(pnos).Index
Sheets(i).Select False
Next i
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Sheets(1).Select
MsgBox "Combining different workbooks in a single workbook Completed"
End Sub

[/pre]
https://dl.dropboxusercontent.com/u/78831150/Excel/Combining%20different%20workbooks%20in%20a%20single%20workbook.xlsb


Regards,

Deb