Cerrar Archivos Area

04/03/2005 - 19:51 por Mauro | Informe spam

Manejo dos archivos con area de trabajo, me pueden regalar el código que me
los cierre ambos salvando los cambios, pero que no me cierre otros archivos
de excel que pueda tener abiertos en ese momento o el aplicativo completo.
Esto con el fin de adicionar un botón y asignarle dicha macro.

Agradezco de antemano la colaboración prestada.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Lisandro

04/03/2005 - 20:13 | Informe spam

Hola Mauro!

me pueden regalar el código que me los cierre ambos

salvando los cambios, pero que no me cierre otros
archivos..
...Realiza pruebas con el siguiente, Agrega un Modulo y
copias el siguiente modulo;Sustituye los nombres
archivo2.xls & archivo1.xls por los que quieres que haga
lo solicitado..

Sub CERRAR()
' CERRAR Macro

Windows("archivo2.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("archivo1.xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Saludos,
Lisandro

Manejo dos archivos con area de trabajo, me pueden

regalar el código que me

los cierre ambos salvando los cambios, pero que no me

cierre otros archivos

de excel que pueda tener abiertos en ese momento o el

aplicativo completo.

Esto con el fin de adicionar un botón y asignarle dicha

macro.

Agradezco de antemano la colaboración prestada.

.

Responder a este mensaje

#2 KL

04/03/2005 - 23:34 | Informe spam

...o bien:

Sub CerrarLibros()
With Workbooks("Libro1.xls")
.Save: .Close
End With
With Workbooks("Libro2.xls")
.Save: .Close
End With
End Sub

Si hay varios archivos, tambien se puede hacer lo siguiente:

Sub CerrarLibros()
Dim Libros As Variant
Libros=Array("Libro1.xls", "Libro2.xls", "Libro3.xls", "Libro4.xls")
For i=0 To UBound(Libros)
With Workbooks(Libros(i))
.Save: .Close
End With

Next i
End Sub

Saludo,
KL

"Lisandro" wrote in message
news:47bc01c520ee$42b0b770$
Hola Mauro!