Abrir todos los archivos Excel de una carpeta (For each)

Hola,

Aunque puede darte problemas si abres un numero excesivo de archivos prueba
el siguiente código.
También si comentas con más detalle que es lo que pretendes al abrir todos
los archivos de una carpeta se podrían buscar otro tipo de soluciones.
En Ruta se almacena el directorio que quieres emplear.
En Extensión la extensión del archivo.

Una cosa más si abres la carpeta en cuestión con el explorador de windows,
seleccionas todos los archivos con extensión xls (primero deberías tener
ordenada la carpeta por tipo de archivo) y das al enter se abrirán todos los
archivos.

Un saludo,
Juan

Inicio Código

Sub AbreTodoXLS()

Dim Ruta As String
Dim Extension As String
Dim MiArchivo As String

Ruta = "C:\ArchivosExcel\"
Extension = "*.xls"

MiArchivo = Dir(Ruta & Extension)

Do While MiArchivo <> ""
If MiArchivo <> ThisWorkbook.Name Then
Workbooks.Open Ruta & MiArchivo
End If
MiArchivo = Dir
Loop

End Sub

Fin Código

"melonero" escribió

Hola a todos, necesito abrir todos los archivos Excel de una carpeta.
He probado con un for each pero no consigo hacerlo.

A ver si alguien me puede echar una manilla con este tema.

Muchas gracias y un saludo.