Exactamente a eso me refería:
Cita: Pues bien es fácil, para abrir un archivo colocas lo siguiente
Código:
Dim File As WorkBook
Set File = Application.Workbooks.Open("C:\empleado001.xls")
Puedes hacer un bucle For que recorra y abra todos los archivos.
Luego recoge los datos del archivo con Range y lo pasas al nuevo archivo(libro) así:
Código:
Dim newBook As WorkBook
Set newBook = Application.Workbooks.Add
Nuevamente con Range pasas los datos...