Macros excel, Experto ayudame por favor

En estos momentos no podre ayudarte, ya que estoy de viaje, pero para pasado mañana veré sobre la solución de tu problema, por favor disculpa que no pueda ayudarte en estos momentos.

Gracias por responderme...
Sin compromiso en cuanto puedas contestar...
Feliz viaje...

Estoy solucionando tu problema, quisiera que me digas si las hojas contenidas en los 30 libros, tienen algún nombre en especial, o simplemente son nombradas "Hoja1"

Ya que me parece que la solución a tu problema esta hecho, solo necesito saber si las hojas contenidas en los 30 libros tienen por nombre Hoja1 o llevan el nombre del libro.
Si fuera la primera opción, la solución a tu problema sería el siguiente código implementado en una macro.
....................................................http://alexcastaneda.blogspot.com.....................................
Sub copiando()
'
' copiando Macro
'
' Acceso directo: CTRL+w
'
Dim nombre As String
Dim ubicacion As String
Dim mes As String
Dim anio As String
Dim Cant_dias_mes As Integer
'VALORES INICIALES
mes = "01"
Cant_dias_mes = 4 'este dato indicara cuantos libros existen en la carpeta.
anio = "09"
'...................
For n = 1 To Cant_dias_mes
If n < 10 Then
ubicacion = "D:\EJEMPLOS\0" + Trim(Str(n)) + mes + anio + ".xlsx"
nombre = "0" + Trim(Str(n)) + mes + anio
Else
ubicacion = "D:\EJEMPLOS\" + Trim(Str(n)) + mes + anio + ".xlsx"
nombre = Trim(Str(n)) + mes + anio
End If
Workbooks.Open Filename:=ubicacion
Application.ScreenUpdating = False
Workbooks(nombre).Worksheets("Hoja1").Copy _
AFTER:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
Application.CutCopyMode = False
Workbooks(nombre).Close True
Next
End Sub
....................................................http://alexcastaneda.blogspot.com.....................................
http://alexcastaneda.blogspot.com

Hola amigo experto, mañana la pruebo con los archivos originales de mi trabajo y te comento...
La prove en mi maquina y me marco error en la siguiente
Workbooks.Open Filename:=ubicacion
la checo bien y te aviso por lo pronto te agradesco mucho la contestacion...
Seguimos en contacto...
Mañana en la tarde te contesto...

esta bien, sin embargo si el error es en la linea "Workbooks.Open Filename:=ubicacion" significa que la ruta esta mal.
Ten en cuenta de que yo he guardado los archivo en D:\EJEMPLOS\ y por eso la siguiente linea esta escrita así.
ubicacion = "D:\EJEMPLOS\0" + Trim(Str(n)) + mes + anio + ".xlsx"
En cambio si tu tienes los archivos en el disco C:\ y en una carpeta llamada "proyecto" tendrías que cambiarlo para que te quede así:
ubicacion = "C:\proyecto\0" + Trim(Str(n)) + mes + anio + ".xlsx"
Bueno espero y todo vaya bien, caso contrario me avisas y también te ayudo en la implementación.

Oye amigo, no se realmente por que no pude ejecutar la macro, me marca error,
y parte del mensaje si me dice que no puede abrir la ruta y la ruta que me muestra en el mensaje es la correcta
Lo que me indicas, ya lo había considerado...
Habría manera que que crees un par de archivos y corras la macro para probarla, luego si no es mucha molestia podrías subir la macro...
Lo que pasa es que intente subir el archivo y no encontré la opción de subir...
Saludos y gracias...

Aquí te envío una carpeta comprimida, todo descomprime en el disco D:\ y ejecutas el archivo "copiarhojasdemuchoslibrosaunlibro.xlsm" luego para ejecutar la macro, simplemente presionas CTRL + W