Cerrar todos los libros abiertos

Hola Marvin,

1) guardando:

Sub test()
Dim wb As Workbook
For Each wb In Workbooks
wb.Save
wb.Close
Next wb
End Sub

2) sin guardar:

Sub test()
Dim wb As Workbook
For Each wb In Workbooks
wb.Close False
Next wb
End Sub


Saludos,
KL


"Marvin" wrote in message
news:

Saludos Grupo, Alguien conoce la instruccion para cerrar todos los libros
abiertos guardando cambios en todos y de igual manera sin guardar cambios
en
todos. Gracias.

Con varios libros abiertos, si con la tecla <Mayúsc> pulsada pinchas el
menú 'Archivo', te aparecerá la opción 'Cerrar todo'.Sigue las
instrucciones que te interesen (guardar todo o no),... y ya está.

:-)


Marvin wrote:

Saludos Grupo, Alguien conoce la instrucción para cerrar todos los libros
abiertos guardando cambios en todos y de igual manera sin guardar cambios en
todos. Gracias.

Up's KL, solo me guarda el libro activo, la instrucción que sea para todos
los que esten abiertos... gracias.

"KL" escribió:

Hola Marvin,

1) guardando:

Sub test()
Dim wb As Workbook
For Each wb In Workbooks
wb.Save
wb.Close
Next wb
End Sub

2) sin guardar:

Sub test()
Dim wb As Workbook
For Each wb In Workbooks
wb.Close False
Next wb
End Sub


Saludos,
KL


"Marvin" wrote in message
news:
> Saludos Grupo, Alguien conoce la instruccion para cerrar todos los libros
> abiertos guardando cambios en todos y de igual manera sin guardar cambios
> en
> todos. Gracias.

creo que es porque el libro que contiene el codigo se cierra a si mismo
primero. prueba esto:

Sub test()
Dim wb As Workbook
With ThisWorkbook
For Each wb In Workbooks
If wb.mame <> .Name Then
wb.Save
wb.Close
End If
Next wb
.Save
.Close
End With
End Sub

Saludos,
KL


"KL" wrote in message
news:%23Pp%

Hola Marvin,

1) guardando:

Sub test()
Dim wb As Workbook
For Each wb In Workbooks
wb.Save
wb.Close
Next wb
End Sub

2) sin guardar:

Sub test()
Dim wb As Workbook
For Each wb In Workbooks
wb.Close False
Next wb
End Sub


Saludos,
KL


"Marvin" wrote in message
news:

Saludos Grupo, Alguien conoce la instruccion para cerrar todos los libros
abiertos guardando cambios en todos y de igual manera sin guardar cambios
en
todos. Gracias.

Gracias KL, funciona correctamente, pregunta?.. Y si quiero que algunos si
guarde los cambios y otros no?... donde coloco los nombres??

Gracias.

"KL" escribió:

creo que es porque el libro que contiene el codigo se cierra a si mismo
primero. prueba esto:

Sub test()
Dim wb As Workbook
With ThisWorkbook
For Each wb In Workbooks
If wb.mame <> .Name Then
wb.Save
wb.Close
End If
Next wb
.Save
.Close
End With
End Sub

Saludos,
KL


"KL" wrote in message
news:%23Pp%
> Hola Marvin,
>
> 1) guardando:
>
> Sub test()
> Dim wb As Workbook
> For Each wb In Workbooks
> wb.Save
> wb.Close
> Next wb
> End Sub
>
> 2) sin guardar:
>
> Sub test()
> Dim wb As Workbook
> For Each wb In Workbooks
> wb.Close False
> Next wb
> End Sub
>
>
> Saludos,
> KL
>
>
> "Marvin" wrote in message
> news:
>> Saludos Grupo, Alguien conoce la instruccion para cerrar todos los libros
>> abiertos guardando cambios en todos y de igual manera sin guardar cambios
>> en
>> todos. Gracias.
>
>