Abrir varios libros a la vez

Quisiera hacer una macro que me abra varios libros a la vez, pero que me deje abierto uno de los libros en pantalla, para poder trabajar. El resto que se queden abiertos por detrás.

Me seria de gran ayuda.

1 Respuesta

Respuesta
1

H o l a:

Te anexo la macro

Sub AbrirLibros()
'Por.Dante Amor
    ruta = "C:\Trabajo\diario\"
    libros = Array("det2.xlsx", "det3.xlsx", "detalle.xlsx")
    '
    For i = LBound(libros) To UBound(libros)
        If Dir(ruta & libros(i)) <> "" Then
            Workbooks.Open ruta & libros(i)
        End If
    Next
End Sub

Cambia en la macro la ruta donde tienes los libros:

ruta = "C:\Trabajo\diario\"


Cambia en la macro los nombres de los libros

libros = Array("det2.xlsx", "det3.xlsx", "detalle.xlsx")

Pon al final de la lista el libro activo, en mi ejemplo el libro "detalle.xlsx" es el que quedará activo.


'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas