Macro para guardar tres libros desde uno solo

5 envíos / 0 nuevos
Último envío
Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 2 semanas 12 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4903
Macro para guardar tres libros desde uno solo

Buenas noches:

Trabajo con tres libros, libro1, libro2 y libro3, que los abro los tres si o si, pero como puedo guardar desde mi libro1 los otros dos? sin la necesidad de ir libro por libro y darle click en el botón guardar?

Gracias

Jesús

Etiquetas: 

RicardoSS
Imagen de RicardoSS
Offline
última acción: Hace 2 semanas 4 días
alta: 25/09/2017 - 18:08
Puntos: 85
Guardar todos los libros activos

Buen dia

Con este codigo guardas todos los libros activos desde cualquier libro.

Sub Guardar_todos_los_libros()

For Each X In Application.Workbooks

X.Save

Next X

End sub

Un Saludo...

 

Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 2 semanas 12 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4903
Tres especificos

Gracias por la respuesta, pero y si quiero guardar tres libros especificos, por ejemplo tengo los siguientes libros caja, cuentas y notas, y solo quiero guardar los tres, y no asi los demas libros que puede ser que vaya abriendo

saludos

Jesús

Jesus Martinez Plantarosa

RicardoSS
Imagen de RicardoSS
Offline
última acción: Hace 2 semanas 4 días
alta: 25/09/2017 - 18:08
Puntos: 85
Macro para guardar solo libros seleccionados;1 o mas libros

Buen dia

este codigo valida si el libro o libros que estamos especificando estan abiertos y los guarda. 

Sub Guardar_3_libros()
For i = 1 To Application.Workbooks.Count
If Application.Workbooks(i).Name = "Caja.xlsx" Then
Application.Workbooks(i).save
Exit For
End If
Next
For i = 1 To Application.Workbooks.Count
If Application.Workbooks(i).Name = "Cuentas.xlsx" Then
Application.Workbooks(i).save
Exit For
End If
Next
For i = 1 To Application.Workbooks.Count
If Application.Workbooks(i).Name = "Notas.xlsx" Then
Application.Workbooks(i).save
Exit For
End If
Next

End Sub

 

Un saludo

RicardoSS

Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 2 semanas 12 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4903
Muy bien

Muchas gracias, perfecto muchas gracias

saludos

Jesús

TEMA SOLUCIONADO

Jesus Martinez Plantarosa