0

Si alguien puede decirme como guardar y cerrar múltiples excel abiertos desde un excel con macro

Sub SaveAll()   
    Dim Wkb As Workbook
    For Each Wkb In Workbooks
        If Not Wkb.ReadOnly And Windows(Wkb.Name).Visible Then
            Wkb.Save
        End If
    Next
End Sub

ese código no guarda los datos editados en sus respectivos excel y se buggea los archivos.

1 respuesta 1

1

Utiliza algo así en archivo PERSONAL.XLSB para que este disponible en todos los archivos:

Sub SaveAll()
    Dim Wkb As Workbook
    For Each Wkb In Workbooks
        If Wkb.Name <> ActiveWorkbook.Name 
            If Wkb.ReadOnly = False Then
                Wkb.Close SaveChanges:=True
            Else
                Wkb.Close SaveChanges:=False
            End If
        End If
    Next Wkb
    ActiveWorkbook.Close SaveChanges:=True
End Sub
2
  • Están mal las comillas.
    – Mariano
    el 19 oct. 2016 a las 9:07
  • Es cierto, ya lo corregí, gracias
    – Balibrera
    el 20 oct. 2016 a las 16:42

Tu Respuesta

Al pulsar en “Publica tu respuesta”, muestras tu consentimiento a nuestros términos de servicio, política de privacidad y política de cookies

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.