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.
Respuesta de Dante Amor
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 SubCambia 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
