Macro guardar todos los archivos abierto en Excel

Twittear este post  Compartir en Facebook

La siguiente macro hace la función de guardar todos los archivos abierto de una sola vez, en lugar de pasar archivo por archivo y darle guardar.

Sub EXCELeINFOSaveAll()
If ActiveSheet Is Nothing Then MsgBox "No hay ningún archivo abierto.", vbExclamation, "EXCELeINFO": Exit Sub
For Each WBook In Application.Workbooks
Application.StatusBar = False
    WBook.Save
Application.StatusBar = Application.ActiveWorkbook.Name
Next WBook
Application.StatusBar = False
End Sub

You may also like...

Leave a Reply

Your email address will not be published. Required fields are marked *

%d bloggers like this: