Abrir varios libros

Carlos escribió:

¿Como puedo hacer para abrir todos los archivos excel que haya en un
directorio?

Saludos

Carlos

buenas Carlos :-)

Prueba con esta macro en un módulo nuevo, la situas en un libro en el
directorio que quieras abrir:

Sub AbrirLibrosDeDirectorios()

Dim i As Long

Dim Libro As Workbook

Dim Directorio As String

Directorio = ActiveWorkbook.Path

On Error Resume Next


With Application.FileSearch

.NewSearch

.LookIn = Directorio

.Filename = "*.xls"

.Execute

For i = 1 To .FoundFiles.Count

Set Libro = Workbooks.Open(Filename:=.FoundFiles(i))

Next i

End With
On Error GoTo 0

End Sub

Nos comentas ok?:-)
¡Un SAludo!:-)

www.fermu.com
www.zorval.es