Copy all workbooks into one workbook

[Jan Svendesen]

Hi,


I have a folder with x number of workbooks, each workbook has one sheet and
each sheet has a unique name. What I want to do is to copy all the sheets
from all workbooks into a new workbook.. So if I have 10 workbooks I want to
run a macro and get a new workbook with 10 sheets (the index order of the
sheets in the new workbook is of no importance). I went to Ron De Bruins
site which is very good btw but all I could find was code to copy workbooks
in a folder and merge them in one sheet in a new workbook. I want to keep
all sheets but put them in a single workbook


Thanks,

Jan Svendesen

 

[Guest]

Jan,

try something like this:


Sub test()
Dim strPath As String
Dim strFile As String
Dim wbNew As Workbook
Dim wbOld As Workbook

strPath = "D:\Temp\"

strFile = Dir(strPath & "*.xls")

While strFile <> ""
Set wbOld = Workbooks.Open(strPath & strFile)
If wbNew Is Nothing Then
wbOld.Sheets(1).Copy
Set wbNew = ActiveWorkbook
Else
wbOld.Sheets(1).Copy After:=wbNew.Sheets(wbNew.Sheets.Count)
End If
wbOld.Close False
strFile = Dir
Wend

End Sub

 

[Norman Jones]

Hi Jan,

I think that Ron also includes sample code to copy a
sheet from each workbook into a master workbook.

See, for example:

Copy sheet from each workbook
http://www.rondebruin.nl/fso.htm

 

[Jan Svendesen]

Thanks


Jan

Jan,

try something like this:


Sub test()
Dim strPath As String
Dim strFile As String
Dim wbNew As Workbook
Dim wbOld As Workbook

strPath = "D:\Temp\"

strFile = Dir(strPath & "*.xls")

While strFile <> ""
Set wbOld = Workbooks.Open(strPath & strFile)
If wbNew Is Nothing Then
wbOld.Sheets(1).Copy
Set wbNew = ActiveWorkbook
Else
wbOld.Sheets(1).Copy After:=wbNew.Sheets(wbNew.Sheets.Count)
End If
wbOld.Close False
strFile = Dir
Wend

End Sub

 

[Jan Svendesen]

You are correct,

thanks

Jan

Hi Jan,

I think that Ron also includes sample code to copy a
sheet from each workbook into a master workbook.

See, for example:

Copy sheet from each workbook
http://www.rondebruin.nl/fso.htm

 

[Ron de Bruin]

And I also add a filter example yesterday to the page